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