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

10 lines
131 B
Perl

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