>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);