a perl script to put hashes in front of every line of a file.