Select Code to Download

my $invalue = param( 'INVALUE' );
if ( defined $invalue ) {
...
} else {
    $result = "Enter a value to test."
}

$less->{'characters'}->{'typed'} == `"time in the pub" | more`; # :-D

/^(?:-)?\d+(?:\.\d+)?$/

/^(?:-)?(?:\d+(?:\.\d+)?|\.\d+)$/