#!/usr/bin/perl
$foo=""; 
while (<@ARGV>) { 
	s/\s*//g; 
	$foo.=$_; 
} 
print "$foo";