できてないｗ

#!usr/bin/env perl
#moduleで区切ってファイル出力を目指す

$i= 0;

while($line = <>){

$i=$i+1;

if ( $line =~ m/^\s*module/ ) {
# print $_;
print $i;
print $line;
}

# if ( $line =~ m/^\s*[A-Z0-9_]+\s+[a-z0-9]+\s*/ ) {
# if ( $line =~ m/^\s*[A-Z0-9_]+\s+[a-z0-9]+/ ) {
# if ( $line =~ m/^\s*[A-Z0-9_]+\s+[\\a-z0-9]+/ ) {
if ( $line =~ m/^\s*[A-Z0-9_]+\s+[a-z0-9\\\.\/]+/) {
print $i;
print $line;
# } elsif ( $line =~ m/^\s*[A-Z0-9_] && $line =~ m/
#
#
}

}
~