- my $rubric = $e->{In};
- $rubric =~ s/\&/AMP /g;
- $rubric =~ s/\$/DOLLAR /g;
- $rubric =~ s/NEWQUOTE/NEW_QUOTE /g;
- my ($f,$prubric) = $rubric =~ m/^(.*)\n/
+ my $desc = $e->{In};
+ $desc =~ s/\&/AMP /g;
+ $desc =~ s/\$/DOLLAR /g;
+ $desc =~ s/NEWQUOTE/NEW_QUOTE /g;
+ my ($f,$pdesc) = $desc =~ m/^(.*)\n/