Select Code to Download

Win8 Strawberry 5.30.3.1 (64)  Tue 07/26/2022  6:46:09
C:\@Work\Perl\monks
...
Saturday
saxyzzy
Sun

# sort_weekdays_2.pl

...
    }

sub _day_parts { return @_ ? "(?: @{[ shift, _day_parts(@_) ]})?" : ()
+; }

    my $rx_days = qr{ (?i)  # custom patterns
        .*? \K \b mo (?: n (?: day)?)?                 |
...
        .*? \K \b sa (?: t (?: ur day)?)?              |
        .*? \K \b su (?: n (?: day)?)?
        }xms;