#!/usr/bin/perl
use strict;
use warnings;

my @lines = `perldoc -u -f atan2;`;

for my $line (@lines) {
    $line =~ s/\w<([^>]+)>/\U$1/g;
    print $line;
}