Lines Matching refs:str
193 my $str = shift;
216 $str =~ s/\@TITLE\@/$title/g;
217 $str =~ s/\@AUTHOR\@/$author/g;
218 $str =~ s/\@UNAME\@/$uname/g;
219 $str =~ s/\@HOSTNAME\@/$hostname/g;
220 $str =~ s/\@DATE\@/$date/g;
221 $str =~ s/\\n/\n/g;
223 return $str;
228 my $str = shift;
230 $str =~ s/&/&/g;
231 $str =~ s/</</g;
232 $str =~ s/>/>/g;
233 $str =~ s/\t/ /g;
235 return $str;