Select Code to Download

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;

$c =~ s eieioeio; #or
$d =~ s ei$oeio$ioeieo;