Select Code to Download

#!/usr/bin/env perl

...
    say "'$day' needs Orc" unless exists $day_for->{$day};
    return $day_for->{$day} ||= eval lc substr $day, 0, 3;
}

*** Check Orcish Manoeuvre is working ***
'Mon' needs Orc
...
sat
SATURDAY
Sat