my $target = $CFG{target} ;
    if ( $target  =~ s/bar//xms ) {
        warn "expecting this message\n";
        $CFG{target} = $target;
    } else {
        warn "not expecting this message\n";
    }