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