s/ñ/\xf1/;

##</code><code>##

#!/usr/bin/perl -w
use strict; # you were using strict, weren't you? ;-)
use HTML::Entities 'decode';

# snip (your MAIL statements here)

for (@L) {
        print MAIL decode $_;
}