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