My shot... doesn't compile, or make any perl sense either, but at least it passes perl -c. :)

if ($you) {

  select(ME);

  @YAPC = reverse ($you,$me);

  sleep $with_me; my $sexy_thang;

  for ($I, $you + ME, $us) {
    redo sin and not sleep until $dawn;
  }
}
[download]

#!/home/bbq/bin/perl
# Trust no1!