Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 20 lines (12 sloc) 344 Bytes
use strict;
use warnings;
use charnames ':full';
use Perl6::Say;
my $str = "This \N{THAI CHARACTER SARA I} is a special character";
my $re = qr/This \x27 \N{THAI CHARACTER SARA I} is/;
#my $re = 'x';
say +($str =~ /$re/) ? 'found' : 'not found';
say $str;
say $re;
Jump to Line
Something went wrong with that request. Please try again.