Select Code to Download

my $found = (my $pat = substr($0,0,1)) =~ tr/abcd/-=~^/;
$pat = $found ? $pat : undef;