use strict;
use warnings;

use Test::More tests => 1;

my $datetime = '01/08/2018 05:58';
my $want = '1/8/2018 5:58';

my $have = $datetime;
$have =~ s/(?<![:\d])0//g;
is ($have, $want);