Programming Sucks

#:: ::-| ::-| .-. :||-:: 0-| .-| ::||-| .:|-. :|| open(Q,$0);while(){if(/^#(.)$/){for(split(’-’,$1)){$q=0;for(split){s/| /:.:/xg;s/:/../g;$Q=$?length:$;$q+=$q?$Q:$Q20;}print chr($q);}}}print"n"; #.: ::||-| .||-| :|||-| ::||-| ||-:: :|||-| .:|

“That program won a contest, because of course it did.”