# encoding: Hebrew
# This file is encoded in Hebrew.
die "This file is not encoded in Hebrew.\n" if q{ } ne "\x82\xa0";
use Char;
print "1..6\n";
my $__FILE__ = __FILE__;
# u^vÆ¢¤³K\»ðgÁ½ê
$_ = "```\naaa\nbbb";
@_ = split(m/^/, $_);
if (join('', map {"($_)"} @_) eq "(```\n)(aaa\n)(bbb)") {
print qq{ok - 1 \@_ = split(m/^/, \$\_) $^X $__FILE__\n};
}
else {
print qq{not ok - 1 \@_ = split(m/^/, \$\_) $^X $__FILE__\n};
}
$_ = "```1\n2aaa1\n2bbb";
@_ = split(m/^2/, $_);
if (join('', map {"($_)"} @_) eq "(```1\n)(aaa1\n)(bbb)") {
print qq{ok - 2 \@_ = split(m/^2/, \$\_) $^X $__FILE__\n};
}
else {
print qq{not ok - 2 \@_ = split(m/^2/, \$\_) $^X $__FILE__\n};
print "<<", join('', map {"($_)"} @_), ">>\n";
}
$_ = "```1\n2aaa1\n2bbb";
@_ = split(m/^2/m, $_);
if (join('', map {"($_)"} @_) eq "(```1\n)(aaa1\n)(bbb)") {
print qq{ok - 3 \@_ = split(m/^2/m, \$\_) $^X $__FILE__\n};
}
else {
print qq{not ok - 3 \@_ = split(m/^2/m, \$\_) $^X $__FILE__\n};
print "<<", join('', map {"($_)"} @_), ">>\n";
}
$_ = "```1\n2aaa1\n2bbb";
@_ = split(m/1^/, $_);
if (join('', map {"($_)"} @_) eq "(```1\n2aaa1\n2bbb)") {
print qq{ok - 4 \@_ = split(m/1^/, \$\_) $^X $__FILE__\n};
}
else {
print qq{not ok - 4 \@_ = split(m/1^/, \$\_) $^X $__FILE__\n};
}
$_ = "```1\n2aaa1\n2bbb";
@_ = split(m/1\n^2/, $_);
if (join('', map {"($_)"} @_) eq "(```)(aaa)(bbb)") {
print qq{ok - 5 \@_ = split(m/1\\n^2/, \$\_) $^X $__FILE__\n};
}
else {
print qq{not ok - 5 \@_ = split(m/1\\n^2/, \$\_) $^X $__FILE__\n};
print "<<", join('', map {"($_)"} @_), ">>\n";
}
$_ = "```1\n2aaa1\n2bbb";
@_ = split(m/1\n^2/m, $_);
if (join('', map {"($_)"} @_) eq "(```)(aaa)(bbb)") {
print qq{ok - 6 \@_ = split(m/1\\n^2/m, \$\_) $^X $__FILE__\n};
}
else {
print qq{not ok - 6 \@_ = split(m/1\\n^2/m, \$\_) $^X $__FILE__\n};
print "<<", join('', map {"($_)"} @_), ">>\n";
}
__END__