Comment by boobsbr

I think a perl expert can write it even shorter.