Cheers,
KM

OK, I ++'d KM for his answer, since it gives what was asked for -- a hint. Slightly more than a hint:

# FILE is open for read, OUTPUT is open for writing

while (<FILE>) {
    s/^(\d+:)//;     # take $_, replace one or more
            # digits at the beginning of the line
            #followed by a : with     
            #nothing
    print OUTPUT;
}
[download]

Note: that may not be exactly what you want; for how to change it, see KM's first reference. 'Course, there's some one-liner goodness to be had here too (you can do this on the command line with one -- albeit complex -- command. For that, see:

perldoc perlrun
[download]

Specifically, the -p switch).

Good luck!

Philosophy can be made out of anything. Or less -- Jerry A. Fodor

s/^(\d+:)//;

Minor nit.. you don't need to do the grouping. And, although he didn't say it he may also want the whitespace removed after the colon.

s!^\d+:\s+!!;
[download]

Cheers,
KM

Hey KM you can link up the documentation like this:
perldoc perlre

Which I did with [perlman:perlre|perldoc perlre]. I think it is cool, anyway...

Update Hmm, KM has a very valid point below... /me ponders

--
$you = new YOU;
honk() if $you->love(perl)

Hey KM you can link up the documentation like this:

I have said in the past, no :) Why? I think you should view the documentation provided with your installed version of Perl. But, if I remember to next time, maybe I will.

Cheers,
KM

Note: This node has been repeatedly slightly diddled.

Note: This node has been repeatedly slightly diddled.

Diddling nodes is illegal in most states. :-)

Cheers,
KM

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