use DDP; use DateTime::Format::Strptime; my $strp = DateTime::Format::Strptime->new( pattern => '%m/%d/%y %H:%M', time_zone => 'Europe/Rome', ); for my $date ( "3/25/06 2:44", "3/26/06 2:44" ) { my $dt = $strp->parse_datetime( $date ); p $dt; }