Select Code to Download

>perl -MEncode -e"print encode 'UTF-8', qq{use utf8; my \$x='a\xE1axBy
+'; \$x =~ /(.*?)x(A*)y/; }" | perl
Malformed UTF-8 character (unexpected continuation byte 0xa1, with no 
+preceding start byte) in pattern match (m//) at - line 1.

61 C3 A1 61 78 42 79

(?!)\x{2660}|

use utf8;
use open ':std', ':locale';

use utf8;
use open ':std', ':encoding(cp852)';