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