$ perl -Mautobox::Core -MData::Dump -le " dd q{ one 6 two 7 three }->m( qr/(\d+)/ ) "
[6]