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

##</code><code>##

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