6.1 コピーと置換を同時に行う

# ２行にわける方法
$dst = $src;
$dst =~ s/this/that/;

# コピーと置換を同時に行う
($dst = $src) =~ s/this/that/;