The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

# encoding: Cyrillic
# This file is encoded in Cyrillic.
die "This file is not encoded in Cyrillic.\n" if q{‚ } ne "\x82\xa0";
print "1..1\n";
if ($] < 5.022) {
for my $tno (1..1) {
print qq{ok - $tno SKIP $^X @{[__FILE__]}\n};
}
exit;
}
local $_ = eval q{ '' =~ /(re|regexp)/n };
if (not $@) {
print qq{ok - 1 /(re|regexp)/n $^X @{[__FILE__]}\n};
}
else {
print qq{not ok - 1 /(re|regexp)/n $^X @{[__FILE__]}\n};
}
__END__