#!/usr/local/bin/perl -i

while ($line = <>) {
        while ($line =~ /  +/g) {
                $line = $` . " " . $';
        }
        print ($line);
}
