# instead of @myin = <IN>;
my $myin;
{
   local $/ = undef;
   $myin = <IN>; #slurp all to scalar
}

#instead of print "@myin\n"; @myin = s/$full/$abb/g;
print "$myin\n";
$myin =~ s/\b$full\b/abb/g