if (m/.../) {
    # ersetze gematchten string durch
    eval "encode_entities($GETPARA{$1})";
}