Select Code to Download

# warning this example is a trap for dedicated brackets with return fa
+bricants

...
    $_[0] =~ /^\s*(\d*)\.*(\d*)\s*$/ or return 0;
    return length( $1 . $2 ); # avoiding loophole of '\s*.\s*'
}