This isn't difficult to read, to be honest. Which will please my boss if no one else.

use warnings;use strict;$_='IPH I were a rich man';s£(\D{3})(\s)(\D+)£
+$3$2$1£;$_[0]=substr($3,1,7);s£($_[0]).{8}(.+)£$1$2£;m£(\D{3})(\D{2})
+(\D+)£;@_=($1,$2);s£(\40)\167£\47\144$1£;$_[2]=ucfirst(lc(substr({},0
+,4)));$_[2]=~s£\163\150£\143\153£;s£\110£\40$_[2]£;s£(\D{12})(\D)(\D+
+)£$1$_[1]\40$2$_[1]$3$_[1]£;$_[2]=lc("\114");s£(.{4})(\145)\162\2(.+)
+£$1\163\164\151$_[2]$_[2]\40\142$2$3£;s£(\D{5})(\D)(\D)(\D{6})(\D)(\D
+)(\D{2})(\D{2})(\D{4})(\D+)£$1$2$3$4$5$6$7$2$3$6$8$5$6$2$9$_[2]$10£;p
+rint($_.chr(0xa));
[download]

--
Tom Waddington