Select Code to Download

my @matches = grep { $file[$_] =~ /^\Q$storeline|\E/ } 0..$#file;

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

no_match($storeline), return unless @matches;

duped_ids($storeline), return if @matches > 1;