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