my $Npod = 'N<(.*?)>'; my $N = '<font class="footnote">';
                       my $n = '</font>'; 

open(DATA, "<file.pod");
my @file = <DATA>;  

s/$Npod/$N$1$n/s for @file;