#! /usr/bin/perl 
@lines = `perldoc -u -fatan2`;
foreach (@lines) {
  s/\w<([^>]+)>/\U$1/g;
  print;
}