if(!$rss) {
			print " -- Feed is broken -- \n";
			my $error = $parser->errstr;
			print $error . "\n";
			$error =~ /Ln: (\d+),/;
			my $line = $1 - 1;
			print "Line $line\n";
			my @file_array = split("\n", $feed);
			print length($file_array[$line]);
			print $file_array[$line] . "\n";
			next FEED;
		}

##</code><code>##

 -- Feed is broken -- 
End tag mismatch (ttl != ) [Ln: 5, Col: 642255168120818]

Line 4
15              <ttl>60</ttl>