#!/usr/bin/perl
my $string1 = "foobar";
my $string2 = "foo bash";
print "String1 " . $string1 =~ m/foo(?!bar)/g . "\n";
print "String2 " . $string2 =~ m/foo(?!bar)/g . "\n";