in reply to script to detect spaces

Responses to Scripting in perl are valid here.