Select Code to Download

use strict;
use warnings;
...
   "k92:l9:m22");

my @good_recs = grep { (split/:/,$_)[1] =~ /2/ } @recs;