Nope but I omit some constant:

  Description: s/\bwork place\b/new year/ig
  Reason: return $home if my($blood_alcohol_content) gt 2 and (my($roo
+mmate) eq 'like driving' or my($roommate) ne 'be driven');
[download]

Is it any better? m//