1 #!/usr/bin/perl
2 
3 @lines = `perldoc -u -f atan2`;
4 foreach (@lines) {
5 	s/\w<([^>]+)>/\U$1/g;
6 	print;
7 }