a => ($b =~ /(\d+)/ ? 0+$1: 0),

##</code><code>##

        a => ($b =~ /(\d+)/ ? do{ print $1; $1 }: 0),

##</code><code>##

        a => ($b =~ /(\d+)/ ? do{ $1 }: 0),