{loop $data $r}
• 
  {sub_string($r[title],$titlelen)}
{end loop}