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