Help for this page
#!/usr/bin/perl #babble ... } print STDOUT ucfirst $frase, "\n";
tr#bble j#ng ... wr#t j#te h#the