c:\@Work\Perl\monks>perl -wMstrict -le
"my $timestamp = 'Tue May  9, 2020 -  1:18:19';
 ;;
 my $rx_wday = qr{ (?i) (?: mon | tue | wed | thu | fri | sat | sun) }xms;
 my $rx_mon  = qr{ [[:alpha:]]+             }xms;
 my $rx_day  = qr{ (?: 3 [01] | [012]? \d)  }xms;
 my $rx_year = qr{ \d{4}                    }xms;
 my $rx_24hr = qr{ (?: 2 [0123] | [01]? \d) }xms;
 my $rx_min  = qr{ (?: [0-5]? \d)           }xms;
 my $rx_sec  = $rx_min;
 ;;
 my $got_date_time =
 my ($wday, $mon, $day, $year, $hr, $min, $sec) =
 $timestamp =~ m{
   \b
   ($rx_wday)   \s+
   ($rx_mon)    \s+
   ($rx_day)  , \s+
   ($rx_year)   \s+ - \s+
   ($rx_24hr) :
   ($rx_min)  :
   ($rx_sec)
   \b
   }xms;
 ;;
 die qq{bad timestamp '$timestamp'} unless $got_date_time;
 ;;
 print qq{'$wday' '$mon' '$day' '$year' '$hr' '$min' '$sec'};
"
'Tue' 'May' '9' '2020' '1' '18' '19'