$ perl -Mstrict -W -E 'say $1 if "hello and 123 goodbye" =~ /(\d)+/;'
3