Besides that, there's not much to optimize here.
You ought to use the -w and -T flags, though (see perldoc perltaint).
In reply to Re: efficientcy by chromatic in thread efficientcy by john1987