Looks like homework. It is better to admit that, if true. You will still get help and perhaps a more detailed explanation. Since this is Holiday Season..

#!/usr/bin/perl
use strict;
use warnings;

while (<DATA>)
{
    s/^\s*\S+\s+//;
    print;
}

=Output
person who asked.
mark one answer.
"accepted".

doesn't mean.
the best answer,
just means that it.
for the person.
asked.
=cut

__DATA__
The person who asked.
can mark one answer.
as "accepted".

Accepting doesn't mean.
it's the best answer,
it just means that it.
worked for the person.
who asked.
[download]