#!/usr/bin/perl -w 
use strict;
while(<STDIN>){
    next unless (/\w+/);
    s/\s+|\t+/ /g;
    print "$_\n";
}