use charnames qw( :full );

m/\N{BYTE ORDER MARK}/;