#!/usr/bin/perl

$toBeEncrypted = "hi there";
$key = "nikos";

$encrypted = $toBeEncrypted ^ $key;
print "encrypted = $encrypted\n";

$decrypted = $encrypted ^ $key;
print "decrypted = $decrypted\n";