Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
12 lines (9 sloc) 179 Bytes
$state= 0;
while (<>) {
chop;
#print "state = $state \n";
#print $_;
$state= 1 if ($_ =~ /\<div id\=\'wrap/);
$state= 2 if ($_ =~ /Courtesy of Rare/);
print if ($state == 1);
}