use strict;
use warnings;

my $string = 'foo bar';
if ($string =~ m{bar}g) {
    print "bar\n";
}
if ($string =~ m{foo}g) {
    print "foo\n";
}
if ($string =~ m{bar}g) {
    print "bar\n";
}

##</code><code>##

bar
bar

##</code><code>##

bar
foo
bar