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.
in reply to One-Liner Help
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