Select Code to Download

$a = 'PF01389    6    218    1    255    430.09';
$b = 'PF00691    PF01389';

if ($a=~/$b/ or $b=~/$a/)
{print "correct";}