in reply to Re^2: Perl code SUCKSin thread Perl code - sometimes UGLY...
print+qq(\L@{[ref\&@]}@{['@'x7^'!#2/"!4']});