http://www.perlmonks.org?node_id=1008317

24/12/2012: Description: s/\bwork\b/holiday/ Reason: return 1; 26/12/2012: Description: s/\bwork\b/fun stuffs/ Reason: return defined $fun and defined $stuff ? $stuff eq $fun : ($ +stuff = $fun); 27-28/12/2012: Description: s/\bwork place\b/christmas/ig Reason: s/\bwork place\b/christmas/ig 31/12/2012: Description: s/\bwork place\b/new year/ig Reason: return $home if my($blood_alcohol_content) gt 2; 2-4/1/2013: Description: s/\bnew\s+year\b/$rest and $peace/ge Reason: (my $bed and my $rest) or (my $bed and my $gf) or ($Perl_suc +ks)

Replies are listed 'Best First'.
Re: Today I took My Holidays
by MidLifeXis (Monsignor) on Dec 11, 2012 at 20:01 UTC

    Shouldn't this one be:

    31/12/2012: Description: s/\bwork place\b/new year/ig Reason: return $keys and find($motel_room, { distance => 'walking', }) if my($blood_alcohol_content) gt 2;

    Want to make sure everyone gets back in the new year. :-)

    --MidLifeXis

      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');
      Is it any better? m//