#!/usr/bin/perl -w

use strict;

my @nouns=qw(Roses Violets Perl And);
my @assoc=qw(red blue pink you);
my $i=0;

foreach my $item (@nouns) {
    print $item, (($item=~/s$/) ? " are " : 
        (($item=~/and/i) ? " so are " : " is ")), 
        $assoc[$i], (($item=~/and/i) ? " :-)\n" : ",\n");
    $i++;
}
[download]

--
Me spell chucker work grate. Need grandma chicken.

#!perl -w
use strict;

my @valentine = <DATA>;
$; #.=\\//=.
=  #\\ .. //
0  # \\__//
;  #  \  /
   #   \/
for(0..$#valentine)
{
   print
    map{$;++;
        $_ = ($;!=5)?(($;%2!=0)?"$_ are ":$_):qq;$_ is at ;;
        } split / /, $valentine[$_];
}

__END__
Roses Red
Violets Blue
Perl $^X
Where You?
[download]

 
___crazyinsomniac_______________________________________
Disclaimer: Don't blame. It came from inside the void
perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"