| #!/usr/bin/perl | use strict; | use
warnings; | my $fname = 'foo.txt'; | open
my $fh, '<', $fname or die "Couldn't open
'$fname': $!; | while (my $line = <$fh>)
{ | if ($line =~ /^\s*bar\z/) { | ...