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£;print($_.chr(0xa));