Perl comments extractor for Textpad

#SEE PURPOSE AT THE END OF THE FILE
package PerlCommentsExctractor ;
use Tie::File ;

our $codeFile = $ARGV[0] ;

main();

sub main
{
my @file_array = ();
tie @file_array , 'Tie::File', $codeFile , memory => 100_000_000 or die "I cannot find the $codeFile" ;
my $line = ();
foreach (@file_array) #foreach line of the file
{ $line ++ ;
if ($_ =~m/(.*)#(.*)/)
{ print $2 . " at $codeFile line $line \n";

}

}
print "F8 copypaste regex \n" ;
print "^(.+)at (.+) line ([0-9]+)[.,]?\n" ;
print "substitute with \1\n" ;
untie @file_array ;

}

1 ;

__END__


#IDEA PUT THIS SCRIPT INTO YOUR PATH CONFIGURE TEXTPAD WITH THE FOLLOWING SETTINS
#==============================================COPYPASTEREGFILE START
#[HKEY_CURRENT_USER\Software\Helios\TextPad 4\Tools\12]
#"Properties"=hex:01,00,00,00,62,80,00,00,68,49,00,00
#"MenuText"="PerlCommentsExctractor.exe"
#"Command"="cmd.exe"
#"Parameters"="PerlCommentsExctractor.exe $FileName"
#"Folder"="$FileDir "
#"RE"="^.+at (.+) line ([0-9]+)[.,]?"
#==============================================COPYPASTEREGFILE STOP