bianconizzatore

#!/usr/bin/perl

# questo script Perl trasforma qualunque doc di testo in uno speech del Biancone
# es. bianconizzatore /usr/share/doc/ubuntu-standard/copyright

while(<>) {
    my @values = split(/\s/, $_);
    if(@values == 0) {
        print "\n";
        next;
    }
    for(my $i = 0; $i < @values - 1; $i++) {
        $values[$i] =~ s/[a-z]/u/g;
        $values[$i] =~ s/[A-Z]/U/g;
        print $values[$i].' ';
    }
    print $values[-1]."\n";
}