I think you didn't understand the purpose of my post. I'm talking about a perl one-liner.
It goes without saying that I wouldn't use such approach in a proper perl program.