Takes its input and joins it into a single string.
#!/usr/local/bin/perl @input = <STDIN>; chop (@input); $string = join(" ", @input); print ("$string\n");