Select Code to Download

my $logdata=<<EOLOG;
pass{BS}{BS}{BS}{BS}{BS}{BS}
...
    or $clean.=$1;
}
print $clean;