use strict;
use warnings;

s/^\d+// && print while <>;


##</code><code>##

myscript intext.txt > outfile.txt

##</code><code>##

perl -p -e 's/^\d+//' infile.txt > outfile.txt