Select Code to Download

my $matches = grep { /^\Q$storeline|\E/ } @file;

if ($matches > 1)
...
     no_match($storeline);
}
return;