#!/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";
IyEvdXNyL2Jpbi9wZXJsCm15ICRzdHJpbmcxID0gImZvb2JhciI7Cm15ICRzdHJpbmcyID0gImZvbyBiYXNoIjsKcHJpbnQgIlN0cmluZzEgIiAuICRzdHJpbmcxID1+IG0vZm9vKD8hYmFyKS9nIC4gIlxuIjsKcHJpbnQgIlN0cmluZzIgIiAuICRzdHJpbmcyID1+IG0vZm9vKD8hYmFyKS9nIC4gIlxuIjs=