use strict;
my $a = "freak";
my $b = "freakmAreA";
print "Yay!\n" if $a=~m AreA;
print "Boo!\n" if $a=~mAreA;
print "BUG!\n" if $b=~mAreA;