sub Or_Not {
  if ( $my_girlfriend_who_I_love_more_than_life_itself->does_not_like('Perl')