Select Code to Download

$foo = "bungling";
$foo =~ /(ngl.)/; ## $1 is now "ngli"
...
$matched2 = $1;  ## $matched 2 is now "ngli"

$_="tricky";  ## usually not assigned explicitly, typically comes in d
+uring a for loop
/tr(.{3})y/;
print $1;    # $1 = "ick"