$foo = (join ', ', 'abacadaeafagahaiaj' =~ m/a/g );
print $foo . "\n";