文字列を一文字ずつ分割する (半角のみ)

;#
;#文字列を1文字ずつ分割する (半角のみ)
;#

#-- 分割 --#
@char = str2char('Hello! World');

#-- 表示 --#
foreach my $c (@char){
	print "$c\n";
}

#---------------------------------------
#1byteずつ分割する
#---------------------------------------
sub str2char{
	my $str = shift;

	return(
		split(//, $str)
	);
}

H
e
l
l
o
!

W
o
r
l
d