perl从网页上爬取名字

#use strict;
use utf8;
use LWP::Simple qw(get);
#设置标头信息

open(FILE1,">a.txt");
binmode(FILE1, ':encoding(gb2312)');

my %dict;

my $i;
for($i=1;$i<=9999;$i++)
{
    print "p $i\n";
    my $url = shift||("");
    my $content = get($url);

    #print $url;

    my @dt = $content =~ />([^>]*)</a></cite>/g;

    foreach $item (@dt)
    {
        if($dict{$item}!=1)
        {
            $dict{$item}=1;
            print FILE1 "$item\n";
        }
    }
}

close(FILE1);