Select Code to Download

perl -CO -wE ' for my $s ( "á", do { use utf8; "á" } ) {
                  say $s, $s =~ $_ ? 1 : 0
                      for qr/\xc3\xa1/,
                          qr/\xe1/
               }'

á1
á0
á0
á1