Select Code to Download

use strict;
use warnings;
...
no feature qw( unicode_strings );
utf8::upgrade($string);
say $string =~ /^\s*$/ ? 1 : 0;      # 1