in reply to How to move unwanted lines out of a file
Put a print before the 'next if m/$finds_re/;' line, for a test run, ,and you'll see which lines match the regex and which don't.
Are you anticipating the patterns to match to change? The definition of quotemeta is:
quotemeta EXPR quotemeta Returns the value of EXPR with all non-"word" characters back-slashed. (That is, all characters not matching "/[A-Za-z_0-9]/" will be preceded by a backslash in the returned string, regardless of any locale settings.) This is the internal function implementing the "\Q" escape in double-quoted strings.
Since your patterns are numeric, quotemeta is a no-op. If you expect the patterns to change, anticipation might be a virrtue, but otherwise it might simply be an unnecessary complication.
--
TTTATCGGTCGTTATATAGATGTTTGCA
|
|---|