use strict;
use warnings;

my $plaintext = 'We are discovered. Flee at once!';
my $key = 'CorrectBatteryHorseStaple';

print "Original message: $plaintext\n";
my $ciphertext = cypher($plaintext,$key);
my $ucode = pack("u",$ciphertext);
print " Encoded message: $ucode (uuencoded)\n";
my $decoded = cypher($ciphertext,$key);
print " Decoded message: $decoded\n";

sub cypher {
  my $plain = shift; my $key = shift;
  my $i=0;
  $key x= ( 1 + length($plain)/length($key) );
  return $plain ^ substr($key,0,length($plain));
}