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