( my $x = $y ) =~ s/.../.../;