#!/usr/bin/perl
use warnings;
use feature 'say';

$s = "ABC";
if ($s =~ /(A B(*ACCEPT)??)(E)/x) {
  say "$&";
}