Hi,

I suggest to use a parser to parse your string into a DateTime object. I also suggest to handle time zones properly and not just by subtracting a value from the hours. What will happen when you try that and the time is earlier than 02:00 ?

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__
[download]

Hope this helps!