some-usable-scripts/c/old/libipc/to-pascal.pl

10 lines
131 B
Perl
Raw Permalink Normal View History

2020-01-28 12:41:11 +01:00
#!/usr/bin/perl -w
use v5.14;
while(<>) {
chomp;
my @wl = split "_\+";
my @wl2 = map { ucfirst lc } @wl;
say join "", @wl2;
}