#!/usr/bin/perl --
use strict; use warnings;
use Data::Dump qw/ dd /;
use feature qw/ unicode_strings /;
my $uni = qq{\N{U+1000049} \N{U+2190}};
dd( $uni );
$uni =~ s{\N{U+1000049}}{\N{U+2190}}gx;
dd( $uni );
__END__
"\x{1000049} \x{2190}"
"\x{2190} \x{2190}"