open (PAGE, $filename) || die "Can't open $filename: $!";
my $text = <PAGE>;
close PAGE || die "Can't close $filename: $!";

# parse $text somehow