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