my $log4perl_conf = q(
log4perl.logger=DEBUG, STRINGCOLLECTOR
log4perl.appender.STRINGCOLLECTOR = Log::Log4perl::Appender::String
log4perl.appender.STRINGCOLLECTOR.layout = Log::Log4perl::Layout::PatternLayout
log4perl.appender.STRINGCOLLECTOR.layout.ConversionPattern = %p:%d{ISO8601}:myscript: %m%n
);
Log::Log4perl->init( \$log4perl_conf );

##</code><code>##

my $appender = $self->logger->appender_by_name('STRINGCOLLECTOR');
my $string = '';
if($appender) {
    $string = $appender->string();
}