$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="([^&]*)"/);
$code =~ s/"/"/g;
# print stderr "Warning: ttf->swf\n" if($code =~ s/Arial.ttf/Arial.swf/g);
open(fi, ">tmp.sc");print fi $code;close(fi);
$code =~ s/"/"/g;
# print stderr "Warning: ttf->swf\n" if($code =~ s/Arial.ttf/Arial.swf/g);
open(fi, ">tmp.sc");print fi $code;close(fi);
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;