• Parser.pm

    803 804  
    175 175 my ($self, $input)= @_;
    176 176 my @tags;
    177 177 $input =~ s/[\r\n\t]+/\ /sgi;
    178 if ( $input =~ /<title.*?>(.*?)<\/title.*?>/sgi ) {
    178 if ( $input =~ /<title.*?>(.*?)<\/title.*?>/si ) {
    179 179 my $title = $1;
    180 180 for ( $title ) {
    181 181 s/^\s+//;