#!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?