perl001

#!/usr/bin/perl

@lines = `perldoc -u -f  atan2`

  foreach (@lines) {

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

}