perl001

#!/usr/bin/perl

@lines = `perldoc -u -f atan2`

foreach (@lines) {

s/\w<([^>]+)>/\U$1/g;

print;

}