use warnings;
use strict;

my $str = "It is very  very cold now";

$str =~ s/(?<! ) (?! )//g;
print $str;