my @weekdays = qw(
Today
Yesterday
Sunday
Monday
Tuesday
Wednesday
Thursday
Friday
Saturday
Sunday
);

##</code><code>##

my ($local_weekday, $local_month, $local_numerical_date) = split (/\s+/, scalar localtime), 3;

__END__
Fri Apr 28
'Yesterday' would be '27'