my $nothing = '';
my $list = <<LIST;
thing 1
thing 2 $nothing
thing  3
thing  4
LIST
$list =~ s/\s{2}/2/g;
print $list;
# output:
#thing 1
#thing 22thing23
#thing24