in reply to hide code
print+qq(\L@{[ref\&@]}@{['@'x7^'!#2/"!4']});
Or even easier with B::Deobfuscate
Best regards, perl -e "s>>*F>e=>y)\*martinF)stronat)=>print,print v8.8.8.32.11.32"