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