sub delete_initial_phrase
{
    my ( $phrase ) = @_;

    if ( $phrase =~ /([!,.:)])/ ) {
        my $punc = $1;
        return substr( $phrase, 1 + index( $phrase, $punc ));
    }
    else {
        return $phrase;
    }
}