# open
open (DATA,"/path/to/webpage.htm") || die "Can't open page - $!";

# slurp
$current = join '', (<DATA>);

# close
close(DATA);

# match
$current =~ /<!---CURCON-->\n(.*?)\n<!---CURCON-->s;

# store
my $match = $1;