Granted a few days late, but hey.

#!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;"