open( FILE, "C:/Users/li/data_collection/posts/165644996453.html" ) || die "couldn't open\n";

while ( <FILE> ) {
    $data .= $_;
}

if ( $data =~ m/(?<=<p>)(.*)(?=<\/p>\s+<footer>)/g ) {
    print "$1\n";
 
}