Select Code to Download

#!/usr/bin/perl -w
use 5.016;
use Data::Dumper;
...

 --> $Erec_split[21]: "A_1" MATCHES $Grec_split[5]: "A_1"