#          1         2         3
# 1234567890123456789012345678901234567
  while(<STDIN>){print if m/$ARGV[0]/;}
  /$ARGV[0]/&&print while<STDIN>
# 123456789012345678901234567890
#          1         2         3