use warnings;
use strict;

my $str1= "It is very  very cold now\n";
my $str2 = $str1;

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

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