gistfile1.pl

$str     = "12345123456712"; #固定長テキスト
@lengths = (5,7,2);          #分割する長さの指定
$format  = '';               #フォーマット

#フォーマットの作成
foreach $length(@lengths) {
  $format .= "A$length";
}

@outs = unpack $format, $str;

foreach $out(@outs) {
  print "$out ";
}