use strict; 
use warnings; 
use 5.010; 
 
use utf8; 
 
my @strings = ( 
    'abc', 
    'Ā', 
); 
 
for (@strings) { 
 
    if (/\x{62}/) { 
        say "matched 'a'"; 
    } 
 
    if (/\x{0100}/) { 
        say q{matched 'cap A with umlaut'}; 
    } 
} 
 
--output:-- 
matched 'a'

#!/usr/bin/perl -w 
use strict;  
use warnings;  
use 5.010;  
  
use utf8;  
  
my @strings = (  
    'abc',  
    'Ā',  
);  
  
for (@strings) {  
  
    if (/\x{62}/) {  
        say "matched 'a'";  
    }  
  
    if (/\x{0100}/) {  
        say q{matched 'cap A with macron'};  
    }  
}

sub nice_string { 
       join("", 
         map { $_ > 255 ?                  # if wide character... 
               sprintf("\\x{%04X}", $_) :  # \x{...} 
               chr($_) =~ /[[:cntrl:]]/ ?  # else if control character ... 
               sprintf("\\x%02X", $_) :    # \x.. 
               quotemeta(chr($_))          # else quoted or as themselves 
         } unpack("W*", $_[0]));           # unpack Unicode characters 
   } 
 
 
print nice_string("foo\x{0100}bar\n"), "\n";

use strict; 
use warnings; 
use 5.010; 
 
use utf8; 
 
my $string = "Ä"; 
say utf8::is_utf8($string); 
 
my $decimal_code = ord($string); 
say $decimal_code; 
 
printf "%x \n", $decimal_code;

$ perl -v 
 
This is perl, v5.10.1 (*) built for darwin-2level-thread-multi 
 
Copyright 1987-2009, Larry Wall 
 
Perl may be copied only under the terms of either the Artistic License or the 
GNU General Public License, which may be found in the Perl 5 source kit. 
 
Complete documentation for Perl, including FAQ lists, should be found on 
this system using "man perl" or "perldoc perl".  If you have access to the 
Internet, point your browser at http://www.perl.org/, the Perl Home Page.

$ perl -V 
Summary of my perl5 (revision 5 version 10 subversion 1) configuration: 
    
  Platform: 
    osname=darwin, osvers=8.11.1, archname=darwin-2level-thread-multi 
    uname='darwin xxxx darwin kernel version 8.11.1:  
        wed oct 10 18:23:28 pdt 2007; root:xnu-792.25.20~1release_i386  
        i386 i386 ' 
    config_args='-Dusethreads' 
    hint=previous, useposix=true, d_sigaction=define 
    useithreads=define, usemultiplicity=define 
    useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef 
    use64bitint=undef, use64bitall=undef, uselongdouble=undef 
    usemymalloc=n, bincompat5005=undef 
  Compiler: 
    cc='cc', ccflags ='-fno-common -DPERL_DARWIN -no-cpp-precomp -fno-strict-aliasing -pipe -I/usr/local/include', 
    optimize='-O3', 
    cppflags='-no-cpp-precomp -fno-common -DPERL_DARWIN -no-cpp-precomp -fno-strict-aliasing 
 -pipe -I/usr/local/include -fno-common -DPERL_DARWIN -no-cpp-precomp -fno-strict-aliasing 
 -pipe -I/usr/local/include -fno-common -DPERL_DARWIN -no-cpp-precomp -fno-strict-aliasing -pipe -I/usr/local/include' 
    ccversion='', gccversion='4.0.1 (Apple Computer, Inc. build 5370)', gccosandvers='' 
    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234 
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16 
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8 
    alignbytes=8, prototype=define 
  Linker and Libraries: 
    ld='env MACOSX_DEPLOYMENT_TARGET=10.3 cc', ldflags =' -L/usr/local/lib' 
    libpth=/usr/local/lib /usr/lib 
    libs=-ldbm -ldl -lm -lc 
    perllibs=-ldl -lm -lc 
    libc=/usr/lib/libc.dylib, so=dylib, useshrplib=false, libperl=libperl.a 
    gnulibc_version='' 
  Dynamic Linking: 
    dlsrc=dl_dlopen.xs, dlext=bundle, d_dlsymun=undef, ccdlflags=' ' 
    cccdlflags=' ', lddlflags=' -bundle -undefined dynamic_lookup -L/usr/local/lib' 
 
 
Characteristics of this binary (from libperl):  
  Compile-time options: MULTIPLICITY PERL_DONT_CREATE_GVSV 
                        PERL_IMPLICIT_CONTEXT PERL_MALLOC_WRAP USE_ITHREADS 
                        USE_LARGE_FILES USE_PERLIO 
  Built under darwin 
  Compiled at Dec  2 2009 12:56:11 
  @INC: 
    /usr/local/lib/perl5/5.10.1/darwin-2level 
    /usr/local/lib/perl5/5.10.1 
    /usr/local/lib/perl5/site_perl/5.10.1/darwin-2level 
    /usr/local/lib/perl5/site_perl/5.10.1 
    /usr/local/lib/perl5/site_perl/5.8.6 
    /usr/local/lib/perl5/site_perl 
    .