>perl numcut.pl ***.c（または***.h）
で使ってください。出力されるファイルの名前は適当です。
use strict;
use warnings;
use encoding 'utf8';
use open IO => "encoding(euc-jp)";
open(C, "$ARGV[0]") or die $!;
open(NEWC, ">>001.c") or die $!;
while (my $line = <C>) {
$line =~ s/^[0-9]....\s//;
print NEWC $line;
}
close(NEWC);
close(C);
