$CFG{regex} = qr/
$_[0]
(?:b|c)*
$_[1]
/x;

# irgendwo anders auf der Welt:
my $r = $konfiguration->get('regex');
if( 'abcccbbcd' =~ $r('a','d') ) {
    print "Toll! Gefunden!\n";
}