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