Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl -w
    use strict;
    ...
        # Sentence case
        $sentence = ucfirst(lc($sentence));
    }
    
  2. or download this
    sub yoda {
        my ($sentence) = @_;
    ...
        # Sentence case
        $sentence = ucfirst(lc($sentence));
    }