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