#!usr/bin/perl
open(DB, "base.txt");
@db = <DB>;
close(DB);
open(PARSED, ">>parsed.txt");
foreach $db (@db)
{
($a, $url, $b) = split("\"",$db);
chomp($url);
print PARSED "$url\n";
tr/a-zA-Z//cd
}
close(PARSED);