Some Perl Idioms

• Putting them together

open FILE, "<", $somefile or die $!;
while(<FILE>) {
  print if /$searchstring/;
}