Help for this page

Select Code to Download

Select or download this

$_ =~ /<FN1>([^<].+)<\/FN1>/;
$found = $1;
$_ =~ s/<FN1ref>/<FN1>$found<\/FN1>/g;