my $x = 'E/stYna~ko';

my @chars = $x =~ /(\w\W*)/g;

print "@chars\n";