sub F{ $x=($_=pop)>1; /.\d(?{$x+=($`.$'+1,$`.$'=~y!0-9!9!r+1,$`.$'=~y!0-9!0!r)[$&<=>12]})^/g; /.*(?=.$)(?{$x+=($t=$`.$')<20?0:$t<30?$&+($t>21):$&=~y!0-9!9!r+1})^/g; $x } ($A,$B)=glob<>; print-F($A-1)+F($B+0)-$A=~/^(2.*)?2$/