## remove regex-unfriendly newline
chomp( my $pat = <STDIN> );

open(FILE, "filename") or die("ack: $!");

while(<FILE>) {
  print
    if /$pat/;
}