my $sr;
foreach my $str (qw(name words plain topic textcolor)) {
    $sr->{$str} =$q->param($str);  
}