My first attempt at perl poetry - a conversion of the poem "The killing zone" by Kiira Triea, which I love very much, to Perl. It does not compile, and neither is it meant to.

"Yes", $me->isBleeding($now);
m/snow falling on roses/;
m/blood
falling in snow/x;

$me->can(stop_the_tides) == false;
foreach($all) {
        if($me->can($_)) {
                ($_ == $me->write($me->name(), on_the_wall, in_red) an
+d hide());
        }
}

$Love->fall_down("/dev/null") and
my $jungle_puberty_tiger_eyes = now_open();
can_face($the_blue);

rock($me, past_the_dead);
foreach($lover) {
        $lover->set("underwater");
        $lover->set("death river");
}
passby();
[download]

The original poem is © 1996 Kiira Triea, who is better at poetry than I can hope to ever become. I dedicate this Perl version to her.

--
mowgli