#!/usr/bin/perl -p
print ++$counter,"\n" or die $! if m/^ ?[^ \t]/;
s/^/    /;
