eval "\$message =~ tr/abcdefghijklmnopqrstuvwxyz/$string/);