use strict;
use warnings;
use v5.16;

binmode STDOUT, ':encoding(UTF-8)';

printf "\N{U+FEFF}"; # Unicode byte order mark

my $text = "Unicode code point U+100049:  \N{U+100049}\n";

print $text;

$text =~ s/100049/002190/;
$text =~ s/\N{U+100049}/\N{U+002190}/;

print $text;

exit 0;

__END__