END
print <<"END";
-.TH $name $section "$RP" "$date" "$center"
+.TH $name $section "$date" "$RP" "$center"
.UC
END
} {I<$1>\\|$2}gx;
# convert simple variable references
- s/(\s+)([\$\@%][\w:]+)(?!\()/${1}C<$2>/g;
+ s/(\s+)([\$\@%&*][\w:]+)(?!\()/${1}C<$2>/g;
if (m{ (
[\-\w]+