Regular Expression Perl

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