Help for this page
... for my $line (@myin) { $line =~ s!$full!$abb!g; }; ...
... for my $line (@myin) { $line =~ s!\b$full\b!$abb!g; }; ...