use strict;
use warnings;
use 5.012;

say hex("200E");    #8206

my $str = "hello\N{LRM}";

if ($str =~ /
     hello 
     (                 #Start of $1
         \p{FORMAT}    #One char in Unicode FORMAT category
     )                 #End of $1

     /xms) {           #Standard flags 

    say ord($1);     #8206
}