>>442
ﾛｸに読まずにｶｷｺ
@abc = split(/[^\w]+/, $aaa);