Select Code to Download

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

    'X' . 'A' . 'BX' # 'A' matched.
    'BX'             # 'A' removed, 'X' returned.
    '' . 'B' . 'X'   # 'B' matched.
    'X'              # 'B' removed, '' returned.