programming-examples/perl/String/Takes its input and joins it into a single string.pl

#!/usr/local/bin/perl 

@input = <STDIN>; 
chop (@input); 
$string = join(" ", @input); 
print ("$string\n");