print+qq(\L@{[ref\&@]}@{['@'x7^'!#2/"!4']});
In reply to Re: Need tips on portable Perl programming by codeacrobat in thread Need tips on portable Perl programming by newbie01.perl