Ah, but then your dice have leading spaces in front of them. :)
my @dice = map { (my $t = $_) =~ s/^\s+(?=\S)//gm; $t } split( /^--\n/ +m, <<'EOT' ); ... EOT
In reply to Re^5: two dice question
by Fletch
in thread two dice question
by convenientstore
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |