Select Code to Download

sub delirium{
    my( $string, $qRef ) = @_;
...
        length $a > length $b ? $a : $b 
    } split '[a-z]+',;
}