++ for the explanation of the switches.

Just an observation: you can do that without the shift operation by printing the array slice @F[1..$#F].

$ perl -lane 'print "@F[1..$#F]"'
The person who asked.
person who asked.
can mark one answer.
mark one answer.
as "accepted".
"accepted".
^C
$
[download]