Help for this page

Select Code to Download

Select or download this

$\ = "\n";

...
$s =~ s/def/123/;
print $&;                                # def
print substr($s, $-[0], $+[0] - $-[0]);  # 123