#!/usr/bin/perl -l

my $s = 'xABCxACxABBCxAB*Cx';

print join(' - ', split('AB*C', $s));    # x - x - x - xAB*Cx