...
  for my $line (@myin) {
    $line =~ s!$full!$abb!g;
  };
...

##</code><code>##

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