Regular Expression Perl

$s = "Hello";
@a = split (//, $s);
print "@a\n";