Help for this page

Select Code to Download

Select or download this

$ perl -sleT 'use diagnostics; use strict; "Hello" =~ /(\w+)/; print $
+1' -- -1=foo
$

Select or download this

$ perl -sleT 'use diagnostics; use strict; "Hello" =~ /(\w+)/; print $
+1' -- -1=foo
foo
$