Mega Code Archive

 

Categories / Perl / String

 

Takes its input and joins it into a single string

#!/usr/local/bin/perl  @input = <STDIN>;  chop (@input);  $string = join(" ", @input);  print ("$string\n");