Пример использования Perl. Выполните итерации по каждой строке в файле и запишите в массив только те данные, которые нам нужны, затем соедините элементы массива запятыми и распечатайте их.
use warnings;
use strict;
my $file = 'file.txt';
open my $fh, '<', $file or die $!;
while (my $line = <$fh>){
my @sections = $line =~ /:\s(.*?)\s/g;
print join ',', @sections;
print "\n";
}
Вывод:
aa,20,zzzz
bb,17,cccc