my $title=substr($_,"<line>","<\/line>");