use strict;
use warnings;

my $pattern = shift;
my $target = 'aBC';
my $regex;
eval "\$regex = qr ($pattern)";
print $regex, "\n";
print $target =~ $regex ? "$pattern Worked!\n" : "$pattern Failed!\n";