open (O, "rules.txt") or die "$!";
my ($wanted_lines);
{
 local $/ = undef; # 'Slurp' mode on
 my $whole_file = <O>;
 close O;
 $whole_file =~ /FirstWord(.+?)LastWord/s;
 $wanted_lines = $1;
}
print $wanted_lines