find . -type f | xargs -n1 perl -pi.bak -0777 -e '$want = "#!perl -Tw"; s/\A#!.*\n/$want\n/; s/\A([^#])/$want\n\1/s'
* updated docs * use magic hooking with hook_rcpt * add note about regexes being eval()ed => trusted users only Signed-off-by: Ask Bjørn Hansen <ask@develooper.com>