Select Code to Download

my $matches = grep {/1=$TAB_1/ && /5=$TAB_5/} @contents ;

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

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