#! /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