$str =~ s/\[id=(\d+)\]/<a href='...$1'>/g;
$str =~ s/\[\/id\]/<\/a>/g;
print $str;