@ttt = split /<br>\n/, $tracker;
 
for (@ttt) {
    print "$_\n";
}