Index: Parser.pm
===================================================================
--- Parser.pm	(revision 803)
+++ Parser.pm	(revision 804)
@@ -175,7 +175,7 @@
     my ($self, $input)= @_;
     my @tags;
     $input =~ s/[\r\n\t]+/\ /sgi;
-    if ( $input =~ /<title.*?>(.*?)<\/title.*?>/sgi ) {
+    if ( $input =~ /<title.*?>(.*?)<\/title.*?>/si ) {
 	my $title = $1;
 	for ( $title ) {
 		s/^\s+//;