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