Language Basics Perl

$_=5000;
s/$_/$& * 2/e;
print "The new value is $_\.n";
$_="knock at heaven's door.\n";
s/knock/"$&," x 2 . "$&ing"/ei;
print "He's $_";