#!/usr/local/bin/perl
use strict;
use warnings;
my %codewheel = ( 'A' => 'B', 'B' => 'C', 'C' => 'D' );
my $message = 'ABC';
$message =~ s/(\w)/${codewheel{$1}}/g;
print "Message: $message\n";