(my $val = $item) =~ s/abc/zzzzzz/;