А еще можно так:

cat numbers.txt | perl -ne 'print "$1\n" if /^8(.+)/; print $_;'