Select Code to Download

sub cleanup_start_words {
    my $text = $_[0];
...
    return $text;

# nothing from here down ever gets executed.

sub delete_initial_phrase
{
...
        return $phrase;
    }
}

blah blah!) Foo bar, and so on...

    if ( $phrase =~ /([!,.:)]+)/ ) {

        return substr( $phrase, length($punc) + index( $phrase, $punc 
+));