use LWP::Simple;

$names = 'zezima';
$re69='((?:[a-z0-9_]+))';
open (lookup, '>>rstlookup.txt');

while ($names =~ m/$re69/isg)
{
	$name = $1;
    $lookup = get("http://rscript.org/lookup.php?type=track&time=62899200&user=".$name."&skill=all");
	print "Looking up $name...\n";
	$reg1='(ERROR)';
	$re1='(gain)';
	$re2='(:)';
	$re3='(Overall)';
	$re4='(:)';
	$re5='(\\d+)';
	$re6='(:)';
	$re7='(\\d+)';
	$re=$re1.$re2.$re3.$re4.$re5.$re6.$re7;
	if ($lookup =~ m/$re/isg) {
		print lookup "$name $7\n";
	}
	elsif ($lookup =~ m/$reg1/isg) { print lookup "$name doesn't exist \n" }
	else{ print lookup "$name 0\n"; }
}
close (lookup);