Select Code to Download

 if ($cou) {
               $orig =~ s/\b$itemY\b/$default/;
               print "$orig\n";

while (<>) {
...
       }
   }
}