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";