use warnings;
use strict;
use Data::Dumper;

my $s = 'a b c d';
my @letters;
if (@letters = $s =~ /(\w)/g) {
    print Dumper(\@letters);
}

__END__
$VAR1 = [
          'a',
          'b',
          'c',
          'd'
        ];