Select Code to Download

my @tags = qw( 1= 2= 3= .. );

...
while ( <FH> ) {
  print "$_\n" if ( $_ =~ /$reg_ex/s );
}