Select Code to Download

#!/usr/bin/perl -i.bak
  :

$ ./myfilter -i file_a file_b

while (<filea>) {
    if ( this is a line i want ) {
...
    }
}
my $replacements= '\b('.join('|',keys %router).')\b';

my $symbol;
while (<>) {
...
    }
    print;
}