split ' ', $timestamp;

##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use Time::Piece;


my $timestamp = 'Tue May  9, 2020 -  1:18:19';

my $tp = 'Time::Piece'->strptime($timestamp, '%a %b %d, %Y - %H:%M:%S');

my $wday  = $tp->wdayname;
my $month = $tp->monname;
my $day   = $tp->mday;
my $year  = $tp->year;
my $hours = $tp->hour;
my $min   = $tp->minute;
my $sec   = $tp->second;


say "wday: $wday.";
say "month: $month.";
say "day: $day.";
say "year: $year.";
say "hours: $hours.";
say "minutes: $min.";
say "seconds: $sec.";