my ($title) = /title=(".*?")/;  ($title) =~ s/"/'/g;       ($title) =~ s/^\s+//g;($title) =~ s/\s+$//g;