Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...
    # Sentence case
    $sentence = ucfirst(lc($sentence));
}

sub yoda {
    my ($sentence) = @_;
...
    # Sentence case
    $sentence = ucfirst(lc($sentence));
}