first try at perl poetry.. thrown together while bored at work.

while($I = shift)
{
 my $soul = &aches(4, $you);
 if ( $soul =~ /to you/ ) { $happiness = "fullfilled"; last; }
 else { $happiness = undef; }
}
die $happiness;

sub aches {
  my ($time, $heart) = @_;
  if(-e $heart) { 
    open(HER, "<$heart") || return "to nothing"; 
    my @dreams = <HER>;
    if($#dreams - $time) { return "to you"; }
  }
  else { return "to nothing"; }
}
[download]

-brad..