use strict;
use warnings;
my $string = "foo\nbar\nbaz\n";
print "1st match ", $string =~ /^bar/  ? "succeeded\n" : "failed\n";
print "2nd match ", $string =~ /^bar/m ? "succeeded\n" : "failed\n";
print "3rd match ", $string =~ /bar$/  ? "succeeded\n" : "failed\n";
print "4th match ", $string =~ /bar$/m ? "succeeded\n" : "failed\n";
__END__
1st match failed
2nd match succeeded
3rd match failed
4th match succeeded

##</code><code>##

while ( $string =~ /(a\w+)/g ) {
  print "$1\n";
}
__END__
ar
az