#!/usr/bin/perl
#header
print "
\n";
print "
\n";
print "\n";
@webpage = `wget -O - "http://www.earthandbeyond.ea.com/guilds/character.jsp?guildId=40578452612910287&characterId=40543856658640933"`;
for $line (@webpage) {
if (grep /tsaavik/ig, $line) {
print $line;
$lookforend=1;
}
if ($lookforend eq 1) {
if (grep /END GUILD/ig, $line) {
$lookforend=0;
}
print $line;
}
}