※ 引述《windguide (夜很深)》之铭言：
: 各位好
: 我有一个档案想要拆成数个档案，格式如下
: A 5 Alan, Jane group1
: A 5 Jack, Susan group2
: D 5 Mary, group5
: B 2 Tom group3
: C 2 Dennis, Amy group4
: ... 8 ...
: ... 8 ..
: ... ... ...
: 我想依照第二栏的数字分割输出成数个档案，也就是
: A 5 Alan, Jane group1
: A 5 Jack, Susan group2
: D 5 Mary, group5
: 与
: B 2 Tom group3
: C 2 Dennis, Amy group4
#!/usr/bin/env perl
use 5.014;
while (<>) {
$_ =~ /^(.*)\s+(\d+)(.*)$/;
my $count = $2;
open FD, ">>", "output-$count.txt";
print FD;
close FD;
}