my ($local_weekday, $local_month, $local_numerical_date) = split (/\s+/, scalar localtime), 3; __END__ Fri Apr 28 'Yesterday' would be '27'