Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 17 lines (11 sloc) 302 Bytes
#!/usr/bin/perl
use strict;
use warnings;
use charnames ':full', ':alias' => {
e_ACUTE => 'LATIN SMALL LETTER E WITH ACUTE',
};
use Perl6::Say;
my $str = "This -> \N{e_ACUTE} is a small letter e with an acute";
my $re = qr/\N{e_ACUTE}/;
say $re;
say +($str =~ /$re/) ? 'found' : 'not found';