Select Code to Download

sub luhn {
    $r=$t=0;
    split//,pop;
...
}

sub luhn2 {
    $_=$i=0;
    split//,pop;
...
    $_=eval;
    !chop
}