固定長レコードを分解して変数に代入

#------------------------------------------
#☆unpack固定長レコードを分解して変数に代入
#------------------------------------------

while(<>)
{

($s1,$s2,$s3) = unpack( "A5A10A3", $_ ); # 固定長レコードを分解して変数に代入
print "$s1,$s2,$s3¥n";

}