Select Code to Download

&#x2013   &dash

'&#2013'  =>   '‐'

use strict;
use warnings;
...
    #print FH "Hexadecimal Value \t Entity Value \t Real_value";
    print FH "\'$real_value\'        =>                 \'$hex_value\'
+,\n";
 }