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