#!/usr/bin/perl while(){ $k .= $_; } $k=~s/\n/ /g; $k=~s/ +/ /g; $k=~s/^ +//g; print "$k\n";