$_ = $target;
my $ok=1;
for my $let (split //,$word)
{ $ok=0, last unless s/$let//;
}