#! /usr/bin/perl
use strict;
use warnings;

# quickshot: split on "A" if followed by "C"

while ( my $line = <DATA> ) {
        
        my @parts = grep {length} split m/(.+?A)(?=C)/, $line;

        # Kontrolle
        local $, = " ";
        print @parts, "\n";
}


__DATA__
BBACCCCADD
BACBACBACDAC
BACBAC
ABAA