$date_string = "Jun 03 19:49:27 2018";
$fmt = '%b %d %H:%M:%S %Y';
$time=Time::Piece->strptime( $date_string, $fmt );
print $time->strftime() ."\n";

##</code><code>##

my $date_string = "Jun 03 19:49:27 2018 +0200";
my $fmt = '%b %d %H:%M:%S %Y %z';
my $time=Time::Piece->strptime( $date_string, $fmt );
print $time->strftime() ."\n";

##</code><code>##

So, 03 Jun 2018 19:49:27 UTC

##</code><code>##

$date_string = "Jun 03 19:49:27 2018";
$fmt = '%b %d %H:%M:%S %Y';
$time=Time::Piece->strptime( $date_string, $fmt );
$time->[10] = 1;
print $time->strftime() ."\n";
...
So, 03 Jun 2018 19:49:27 CEST