Code that compiles? When did this era end? For the benefit of posterity I must point out it's naïve and broken; handling quoting properly is not really a trivial problem–

print quoted('"quoted"'), $/;
[download]

And immediate if is a very un-Perly name for the ternary operator.