Working but uglier version of the regex engine solution

send-more-money-regex.p6

"" ~~ m/
    :my ($s, $e, $n, $d, $m, $o, $r, $y);

    [             {$s = 1} || {$s = 2} || {$s = 3} || {$s = 4} || {$s = 5} || {$s = 6} || {$s = 7} || {$s = 8} || {$s = 9} ]
    [ {$e = 0} || {$e = 1} || {$e = 2} || {$e = 3} || {$e = 4} || {$e = 5} || {$e = 6} || {$e = 7} || {$e = 8} || {$e = 9} ]
        <!{ $e == $s }>
    [ {$n = 0} || {$n = 1} || {$n = 2} || {$n = 3} || {$n = 4} || {$n = 5} || {$n = 6} || {$n = 7} || {$n = 8} || {$n = 9} ]
        <!{ $n == $s }>
        <!{ $n == $e }>
    [ {$d = 0} || {$d = 1} || {$d = 2} || {$d = 3} || {$d = 4} || {$d = 5} || {$d = 6} || {$d = 7} || {$d = 8} || {$d = 9} ]
        <!{ $d == $s }>
        <!{ $d == $e }>
        <!{ $d == $n }>
    :my $send = :10[$s, $e, $n, $d];

    [             {$m = 1} || {$m = 2} || {$m = 3} || {$m = 4} || {$m = 5} || {$m = 6} || {$m = 7} || {$m = 8} || {$m = 9} ]
        <!{ $m == $s }>
        <!{ $m == $e }>
        <!{ $m == $n }>
        <!{ $m == $d }>
    [ {$o = 0} || {$o = 1} || {$o = 2} || {$o = 3} || {$o = 4} || {$o = 5} || {$o = 6} || {$o = 7} || {$o = 8} || {$o = 9} ]
        <!{ $o == $s }>
        <!{ $o == $e }>
        <!{ $o == $n }>
        <!{ $o == $d }>
        <!{ $o == $m }>
    [ {$r = 0} || {$r = 1} || {$r = 2} || {$r = 3} || {$r = 4} || {$r = 5} || {$r = 6} || {$r = 7} || {$r = 8} || {$r = 9} ]
        <!{ $r == $s }>
        <!{ $r == $e }>
        <!{ $r == $n }>
        <!{ $r == $d }>
        <!{ $r == $m }>
        <!{ $r == $o }>
    :my $more = :10[$m, $o, $r, $e];

    [ {$y = 0} || {$y = 1} || {$y = 2} || {$y = 3} || {$y = 4} || {$y = 5} || {$y = 6} || {$y = 7} || {$y = 8} || {$y = 9} ]
        <!{ $y == $s }>
        <!{ $y == $e }>
        <!{ $y == $n }>
        <!{ $y == $d }>
        <!{ $y == $m }>
        <!{ $y == $o }>
        <!{ $y == $r }>
    :my $money = :10[$m, $o, $n, $e, $y];

    <?{ $send + $more == $money }>
    { say "$send + $more == $money" }
/;