my $str ="<title>
This is a very good site for regular Expressions.
Very helpful.
Thanks.
</title>";

#print"$str\n";

$str =~ m#<title>(.*?)</title>#gis;
my $matched_output = $1;
#print"\n$matched_output\n";