perl -n -e "m/77403|77404|77406|77407|77408|77409|77411|77412|77413|77
+414|77416|77418/ or print" infile.txt > outfile.txt
[download]

Otherwise you will need to be more exact ie specify what the data looks like and what your code is supposed to do. It is far from clear in what you asked and the code you posted :-)

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print