$_ .= <ARGV> . <$foo>;
####
# \x{}
-my $foo = "Ab\x{100}\200\x{200}\377Cd\000Ef\x{1000}\cA\x{2000}\cZ";
+my $foo = "Ab\x{100}\200\x{200}\237Cd\000Ef\x{1000}\cA\x{2000}\cZ";
####
# s///e
s/x/'y';/e;
####
# y/uni/code/
tr/\x{345}/\x{370}/;
+####
+# [perl #90898]
+glob('a,');
+####
+# [perl #91008]
+each $@;
+keys $~;
+values $!;