Using the m// operator ?

my $string = "millenium";

my @list = ( $string =~ m/./g );

foreach my $char (@list) {
  print "$char\n";
}
[download]

Output:

m
i
l
l
e
n
i
u
m
[download]