$_ =~ C->flag();

##</code><code>##

sub flag {
  return '(.)foo(\\d+)bar'
}