#!/usr/bin/perl
#Kickstart from http://www.perlmonks.com/
#note: a slight valentine variation :)

$LOVE =
  AMOUR . true . cards . ecstacy . crush . hon . promise . de . votion . partners . tender . truelovers . treasure . affection . devotion . care . woo . baby
  . ardor . romancing . enthusiasm . fealty . fondness . turtledoves . lovers . sentiment . worship . sweetling . pure . attachment . flowers . roses . promise
  . poem;
$LOVE =~ s/AMOUR/adore/g;
@a = split (//, $LOVE);
$o .=
  chr(ord($a[1]) + 6) . chr(ord($a[3]) + 3) . $a[16] . $a[5] . chr(32) . $a[0] . $a[(26 + 2)] . $a[27] . $a[5] . $a[25] . $a[8] . $a[3] . chr(32) . $a[29]
  . $a[8] . $a[3] . $a[62] . chr(32) . $a[62] . $a[2] . $a[38] . $a[4] . $a[3] . '.';
print $o;