# 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;
}

##</code><code>##

perldoc perlrun