# pattern matching and extraction.



open (FILE, "test.htm");

@lines = <FILE>;

$text = join("",@lines);

$text=~s/\n/%%new_line%%/g;  # the script does not work correctly if commented.
print "found" if $text=~m/%%row_start%%(.+)%%row_end%%/;

$tstart ="%%row_start%%";
$tend = "%%row_end%%";

$text=~/(($tstart)(.+)($tend))/;


print "The complete pattern is :\n $1\n\n";
print "The string without delimiters is :\n $3\n\n";