Select Code to Download

$_="DE3W1S3SW1NW1UN3E5DS3SE1E1NE1N3UE4DW1SW1SE1E1SE1SW1W1UN4E4DE3W2S4
US6W16DN3NE1E1SE1S3N2W2UE4S2DN4SE1S1SE1SE1N4UE3DE1SE1S2SW1W1NW1N2UN1E
...
=$s eq"D"?"#":$$z;$r--}}/[UD]|$c\d+/g;for(;$a<@g;$a++){!defined@{$g[$
a]}?do{print$/;next}:0;for($z=0;$z<@{$g[$a]};$z++){print$g[$a][$z]?$g
[$a][$z]:$"}print$/}

#!/usr/bin perl

...
    }
    print "\n";
}