Regex across multiple lines - regex

Question

I was able to successfully extract everything with your suggestions. My issue came as expected, with the regex not properly recognizing something... thanks so much!! Here is my end code... hope it helps someone!
if($_=~/(Research Interests)/){
$research = "Research Interest";
if($_=~m/<h2>Research Interests<\/h2>(.*?)<p>(.*?)<\/p>/gs){
#researchInterests = split(/,+/, $2);
$count = 1;
foreach(#researchInterests){
print "$research $count:";
print $_. "\n";
$count++;
}
}
}

Answer 1

The problem is that you've only read in one line at a time. Why don't you read in the entire file and match against that.
my $file;
{
local $/;
$file = <FILE>;
}

Answer 2

You can simply go get more lines at that point:
while (<FILE>) {
if (m/Research Interests/) {
while (<FILE>) {
if (m/<p>(.*)<p>/) {
print "Research Interests: $1";
last;
}
}
}
}
I don't know whether your file is huge or not, but it's worth learning techniques that don't require reading the whole file at once so that you can deal with arbitrarily large files, or with streams.

Answer 3

If you absolutely have to do this, you could try setting the newline separator to undef:
#!/usr/bin/perl
use warnings;
use strict;
my $infile = 'in.txt';
open my $input, '<', $infile or die "Can't open to $infile: $!";
my $reserch_interests;
$/=undef;
while(<$input>){
if($_ =~ /(Research Interests)/){
$reserch_interests = $1;
if($_=~ m/<p>(.*)<\/p>/){
print "Title: $reserch_interests\nInterests: $1\n";
}
}
}
Prints:
Title: Research Interests
Interests: Data mining, databases, information retrieval