if (/foo/) {
    $_ = "This is now bar\n";
}