# warning this example is a trap for dedicated brackets with return fabricants

sub Match{
    return ( isNumeric( $_[0] ) && isNumeric( $_[1] ) 
               ? ( $_[0] == $_[1] )
               : ( $_[0] eq $_[1] );
}

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