Select Code to Download

$ perl -wE 'my $foo = "ë"; say $foo =~ /\w/ || 0; say uc $foo'
0
...
1
ë
$