open(FOO,'<emdash.html') or die $!;
while(<FOO>) {
        if( /Pierrefonds/ ){
                print;
                print join ' ',map { ord } split // ;
                print "\n";
        }
}