$foo = $bar;
$foo =~ s/this/that/;