print+qq(\L@{[ref\&@]}@{['@'x7^'!#2/"!4']});
In reply to Re^3: perl one line helper by codeacrobat in thread perl one line helper by vasista2k