while (<MOTIF>) {@motif = <MOTIF>};

for ($i=0;$i<=length($blocks);$i++) {
$pattern = substr($blocks, 0, $i);
if (/$pattern/) 
{push(@array, $&);