my question: why would you? it's perfectly adequate the way it is. right tool for the right job. that little script is easy to read and understand and appears to function fine.
do you need it to be cross platform? do you need to incorporate it into a larger all-perl program? these things I could see, but then why ask specifically for a one-liner?
my only advice is to drop the use of cat; it does nothing =)
"A man's maturity -- consists in having found again the
seriousness one had as a child, at play." --Nietzsche