perl -e '$_="000aaa111aaa222";@nums=/(\d{3})/g;print pop @nums'
こういう動作を一度にやりたいです。