while(  $_ =~ /<!--#exec cgi="([^"]*)"-->/  ) {
    my $a= `$1`;
    $a =~ s/\n/<br>\n/g;
    $_ =~ s/<!--#exec cgi="([^"]*)"-->/$a/;
}
print $_;