use DateTime::Format::Flexible;
sub date { DateTime::Format::Flexible->parse_datetime(shift); }

my $d= date('Sat Jun  4 22:47:31 2022');
$d->set_time_zone('+0200')->set_time_zone('UTC');
print "$d\n";