$_ = 'XABX';
    print "<$_>" for split /A|B/;

    __END__
    <X>
    <>
    <X>