Select Code to Download

$match = 'Ba';
@array = ('Bad','Good','Whatever');

if (grep(/$match/, @array)) { print "Yippie!\n"; }
else { print "No Match\n"; }