Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -l

my $s = 'xABCxACxABBCxAB*Cx';

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