while (<DATA>)
{
  $i++;	
  push(@fnote, $1) if ($_ =~ /<FN$i>(.+)\n/);
}

$, = "\n";
print @fnote;