String Perl

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