Encoding and decoding Morse code in perl