#!/bin/perl -w

while (<>) {
        chomp;
        $line = join('', split /[ \t]*/);
        print $line;
}