过滤地址

#!/usr/bin/perl
use LWP::UserAgent;
  my $ua = LWP::UserAgent->new;
  my $req = HTTP::Request->new(GET => '%3D1%26filter%3Ddigest%26digest%3D1%26digest%3D1');
  my $res = $ua->request($req);
  open File,">file";
  if ($res->is_success) {
      print File $res->content;
  }else {
      print "Failed: ", $res->status_line, "\n";
  }
  close File;
  open File,"  open Fileout,">>file2";
while () {
        if ($_=~/(http:\/\/www\.boobooke.com\/v\/)(bbk\d{4})/)
        {
                print Fileout "$1$2\/video\.swf\n";
                $video="$1$2\/video\.swf";
                $name="$2";
                print "$video=====$2\n";
                @wget=("wget","$video","-O","$name\.swf");
                system (@wget);
        }

}
close Fileout;