Skip to content
Newer
Older
100755 17 lines (11 sloc) 302 Bytes
fcc5114 @petdance first draft of rebuilt scraps
authored
1 #!/usr/bin/perl
2
3 use strict;
4 use warnings;
5
6 use charnames ':full', ':alias' => {
7 e_ACUTE => 'LATIN SMALL LETTER E WITH ACUTE',
8 };
9
10 use Perl6::Say;
11
12 my $str = "This -> \N{e_ACUTE} is a small letter e with an acute";
13 my $re = qr/\N{e_ACUTE}/;
14 say $re;
15
16 say +($str =~ /$re/) ? 'found' : 'not found';
Something went wrong with that request. Please try again.