my $start_Note = 'N<';  my $N = '<font class="footnote">';    
my $end_Note = '\.>';   my $n = '</font>'; 

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

s/$start_Note/$N/g for @file;
s/$end_Note/$n/g for @file;