19:11 >perl -wE "my $s = qq[abc\Udef\Eghijk]; say $s;"
abcDEFghijk

19:13 >