use Win32::Unicode;
my $wdir = Win32::Unicode::Dir->new;
$wdir->open(@ARGV);
my ( undef, undef, $file ) = $wdir->fetch;
print join "\n", "length: " . length( $file ) . ", code points:", map ord, split //, $file;

##</code><code>##

d:\>perl filename_check.pl RJ209072
length: 17, code points:
226
123
226
78
233
9524
196
113
233
9568
196
191
233
8976
233
189
50