#!/usr/bin/perl

use strict;
use warnings;

my $content = <<'';
aaa111bbb
ab01ac  d ab02ac ab03ac
aaa222bbb
ab04acab05ac r ab06ac
aaa333bbb
ab01ac t cab06acab10ac

print "$1\n$2,$3,$4\n"
  while $content =~ /aaa(\d+)bbb\nab(\d+)ac.*?ab(\d+)ac.*?ab(\d+)ac/g;