perl -i -e '$/=undef; <>; s/^(#!.+?\n)/$1## Copyright (C) 2009 by tuxus\n/; print' test.pl