A perl script that does appropriate backslash escaping of '-' chars