$code .= $_ if(!/CALLPERL/);
$name = $1 if(/.flash.*name=([^&][^ ]*)/);
$name = $1 if(/.flash.*name="([^&]*)"/);
$code .= $_ if(!/CALLPERL/);
$name = $1 if(/.flash.*name=([^&][^ ]*)/);
$name = $1 if(/.flash.*name="([^&]*)"/);
elsif ($highlight ne "") {
$highlight =~ s/^\n\s*//g;
$highlight =~ s/\s*\n$//g;
elsif ($highlight ne "") {
$highlight =~ s/^\n\s*//g;
$highlight =~ s/\s*\n$//g;