You know what? You're absolutely right. Of course, though, I would modify it as such:

sub Or_Not {
  if ( $my_girlfriend_who_I_love_more_than_life_itself->does_not_like(
+'Perl')
[download]

 ){   drink(); read_Playboys();
[download]

 sleep_on_couch();
[download]

 }
}
[download]