$str =~ s/<fn id="fn$i">(.+?)<\/fn>//;