给你个Perl源码:
==============CODE===============
#!usr/bin/perl
print "Please enter a sentence containing 5 words:\n";
$sentence =
print "\nWhich word do you want to print?\nEnter a number from 1 to 5:\n";
$num =
@words = split /\s+/, $sentence;
print "The word is:\t$words[$num-1]\n";
==============CODE===============