use CGI qw/:standard/;
$text =~ s#\[(id=[^]]*)]([^[]*)\[/id]#a({href => $targetURL . $1}, $2)#eg;