My latest attempt ... noisy and somewhat interesting ;)

undef>>37<<map{s-1-$/-g-$|++,select($^P,$^E,$^R,($.+=42)/(117*42)),
$/=$_.$".$-." !",print,print "\ch"x2}map{s/44$//,sprintf sprintf('%cc'
+,37),
$_}(unpack(sprintf('%c%c',117,42),<DATA>)=~m/...?44(?!4)/g)
and$/=42>>44<<117>>31;__DATA__;M-#30T-0#4-93$#90-AD#
M-S0T-#$Q-S0T,3$U-#0Q,38T-#,R-#0Y-S0T,3$P-#0Q,3$T-#$Q-C0T,3`TM-#0Q,#$T
+-#$Q-#0T,S(T-#$Q,C0T,3`Q-#0Q,30T-#$P.#0T,S(T-#$P-#0T;.3<T-#DY-#0Q,#<T
+-#$P,30T,3$T-#0S,C0T3#-04
[download]