print "What is your full name? "; ($first, $middle, $last)=split(" ", <STDIN>);# STDIN scalar context print "Hi $first $last.\n";