#!/usr/bin/env perl  or #!/usr/bin/perl 

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

foreach  (@lines)
{
s/\w<([^>]+)>/\U$1/g;
print;}