8 lines
114 B
Text
8 lines
114 B
Text
|
#!/usr/bin/env perl
|
||
|
|
|
||
|
|
while (<STDIN>) {
|
||
|
|
s/([A-Z]+)([A-Z][a-z])/$1_$2/g;
|
||
|
|
s/([a-z\d])([A-Z])/$1_$2/g;
|
||
|
|
print lc;
|
||
|
|
}
|