>perl -E"my ($aa) = 'abc123def' =~ /(\d+)/; say $aa;"
123

>perl -E"say( ('abc123def' =~ /(\d+)/)[0] );"
123