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