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