Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 79ae8b6eb3
Fetching contributors…

Cannot retrieve contributors at this time

executable file 20 lines (12 sloc) 0.344 kb
#!/usr/bin/perl
# http://rt.perl.org/rt3//Ticket/Display.html?id=56444
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.