Help for this page

Select Code to Download

Select or download this

# instead of @myin = <IN>;
my $myin;
...
#instead of print "@myin\n"; @myin = s/$full/$abb/g;
print "$myin\n";
$myin =~ s/\b$full\b/abb/g