$t =~ s/\[GETPARA:(.*?)\]/encode_entities($GETPARA{$1})/eg ;