Change the outer for loop to a map (1 character)
Change the /^$/ to just $_ (2 characters)
Change the @{$w[-1]} to @{pop@w} (1 character)
Drop the semi-colon after the inner for loop (1 character)
Which gives us:
67 characters?#234567890123456789012345678901234567890123456789012345678901234567890 +12 map{$n=$o=$_;for$c(@_){$n+=s/$c//}$_&&push@{$w[$n]},$o}<D>;@{pop@w}
In reply to Re:**3 a different tack: "Countdown" (golf)
by jynx
in thread "Countdown" (golf)
by stuffy
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |