print+qq(\L@{[ref\&@]}@{['@'x7^'!#2/"!4']});
In reply to Re: I am new to Perl by codeacrobat in thread I am new to Perl by changalrai