perl -le 'print +(grep /\d/, qw/foo b4r b4z quux/)[0]' b4r