>perl -E"say(scalar( 'abc234def' =~ /(\d+)/ ));"
1

>perl -E"say(scalar( ('abc234def' =~ /(\d+)/)[0] ));"
234