ei modifier
$_ = "knock knock, who is there.\n"; s/knock/"knock, " x 2 . "knocking"/ei; print "He's $_;