my $msg
    = /a.*b/i     ?  'The string has an a, and also a following b'
    : /a[^bB]*$/i ?  'The string has an a, but not a following b'
    :                'String did not match'
    ;