my $matches = grep {/1=\Q$TAB_1\E.*5=\Q$TAB_5\E/} @contents ;