String Perl

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