loversDay.pl

#!perl

package LoversDay;

@LoversDay::feelings = ('hate', 'love', 'happiness', 'lies', 'missing', 'trust'); # Thats feelings, ok?
@LoversDay::result;

my $AnaLidia; # That's you
my $Vinicius; # That's me

our $feelings;
# take us to
our $result;

# so our
@result = grep { # Read grep as grip ;)
    m/love|happiness|missing|trust/; # We do match these feelings, don't we? :3
} @feelings;

$AnaLidia = $result[int( rand( ~~@result)) ]  if scalar $result;
# and
$Vinicius = $result[int( rand( ~~@$result))]  if scalar $result;

print "Ana Lidia and Vinicius have  ", join ', ', @result, 'together. Happy Lovers Day.'."\n", =~ s/\,\stogether/ together/r  if $AnaLidia and $Vinicius;

__END__