use strict;
use warnings;
use feature 'say';
use DateTime::Format::Strptime;

my $string = 'Sat Jun  4 01:47:31 2022';

my $parser = DateTime::Format::Strptime->new(
    pattern   => '%a %b %d %T %Y',
    locale    => 'en_US',
    time_zone => 'America/New_York',
    on_error  => 'croak',
);

my $datetime = $parser->parse_datetime($string);

$datetime->set_time_zone('America/Denver');

say $datetime->strftime('%a %b %d %T %Y');

__END__