Help for this page

Select Code to Download

Select or download this

    @a = $a =~ /( [[:alpha:]]+ | [[:digit:]]+ )/gx;
    @b = $b =~ /( [[:alpha:]]+ | [[:digit:]]+ )/gx;