sub dec{local$/=$ARGV[$_]x4,$_[0]=~s#$ARGV[$_-1]#$/#g,for(1..3);$_[0]}
#{<:}{::}}-{<<<:}-{<<<}}}-{<<<:-<<-{<<}-{<<:::}}-{<<:::}}}-{<<<:-{<<::-{<<:}-{<<<}}-<<-{<-{<<:}-{<<<}}-{<<:::-<<-{::-{<<}-{<<}}}-{<<::}}}-{<<:}-{<<<}}-:::}-::}}
eval'$_=\'{<:}{<<:::}}}-{<<<-{<<:}-{<<:::}}-<<-<<:-{<<:}}-{<<::-<<:::-<<:-<<<-::}}\';'.$cmd.';eval join//,@o;reset"o";eval$cmd while<$fh>;print join//,@o'if$cmd='@ARGV=/^#?(\{)(\<)(\:)(\})(.*)$/and$_=pop@{ARGV}and do{eval{push@o,chr length&dec($_)for(split)}for(split("-"))}';