if ( $str =~ m{ (?: (?<=\A) | (?<=XXX) ) \d+ }x ) { ... }