see Tad McClellan's reply in regex to clean path thread on comp.lang.perl.misc.

(After a few seconds of posting...) Never mind, that is what you have posted anyway. After reading "In a shell script" and #!bin/sh, i stopped reading. That will teach me to be the first responder.