($x = 12) =~ s/1/4/; print $x;  # 42