Λαμβάνοντας μέρη μιας web σελίδας

$content =~ m/$url_data_array[1](.*?)$url_data_array[2]/ig;

my $title_data = $1;

$title_data =~ s/<(.*?)>//g;

my $title = $title_data;

$content =~ m/$url_data_array[3](.*?)$url_data_array[4]/ig;

my $body_data = $1;

$body_data =~ s/<(.*?)>//g;

my $body = $body_data;

print "$title\n";

print "$body\n";

}

}

}

close (PREVIOUSURLS);