Select Code to Download

use strict;
use warnings;
...
eval "\$regex = qr ($pattern)";
print $regex, "\n";
print $target =~ $regex ? "$pattern Worked!\n" : "$pattern Failed!\n";