[Aiken]

This one is especially usefull for windowsers:
Code:

---

 #!/usr/bin/perl

     foreach(reverse((split//,

            qq~hsp/sfldbi.umbAgmbeobh~

                   ))) {print chr (ord( $_ ) - 1);} 

---