You really want to to some research on regular expressions. If you are just starting out I'd suggest Learning Perl from O'reilly Assoc. For now though, try this:

while ( <FH1> ) {
    chomp;
    $_ =~ s/^\d+//;
    print FH2 $_, "\n";  # to get it into a new file
}
[download]

- kel -