Yet another enigma machine implementation (this time in Perl)