my @pieces4 = split /<|>/ , $pieces[4];
        my $title = $pieces4[3];