while(<>) { if (/Ahab/) { print $_; } }