First time obfuscation

[rdw]

#! /usr/bin/perl -w
use strict;$,='er'x12;$/=$;=ord(' ');map{s/(.)//;map{substr
($,,-$/+ord,1)=chr($;)}split//;$;+=ord($1)-$/;}split/9/,
'H$1,9"29& 91-9"%39%49#)9!59"09!&9#\'9!9!"9!#(9!!';print$,;

Have fun,

Rich