#!/usr/bin/perl
use strict;
use warnings;

# Schizophasia Normalizer:
# Detects fragmented, repetitive, or incoherent text patterns
# and produces a normalized version + SEO slug + category tags.

my $input = do { local $/; <STDIN> };

# --- Detect schizophasia-like patterns ---
# Repetition, broken syntax, abrupt topic shifts, etc.

my @flags;

push @flags, "repetition"        if $input =~ /\b(\w+)\b\s+\1\b/i;
push @flags, "fragmentation"     if $input =~ /\b(?:and|but|so)\s+(?:and|but|so)\b/i;
push @flags, "abrupt_shifts"     if $input =~ /\b(?:however|nevertheless|anyway)\b.*\b(?:unrelated|random)\b/i;
push @flags, "nonlinear_flow"    if $input =~ /\bjump\b.*\btopic\b/i;

# --- Keyword extraction ---
my %keywords;
while ($input =~ /\b([A-Za-z]{4,})\b/g) {
    $keywords{lc $1}++;
}

# --- Normalize text ---
my $normalized = $input;

# Remove repeated words
$normalized =~ s/\b(\w+)\b\s+\1\b/$1/gi;

# Remove stray punctuation
$normalized =~ s/[^\w\s\-]/ /g;

# Collapse whitespace
$normalized =~ s/\s+/ /g;

# --- Generate SEO slug ---
sub make_slug {
    my ($t) = @_;
    $t = lc($t);
    $t =~ s/[^a-z0-9\s]+//g;
    $t =~ s/\s+/ /g;
    $t =~ s/ /-/g;
    return $t;
}

my $slug = make_slug($normalized);

# --- Build URL ---
my $base = "https://www.lowmaintenancesweetheart.online/index.php?title=";
my $url  = $base . $slug;

# --- Output ---
print "\n=== Schizophasia Analysis ===\n";
print "Flags: ", join(", ", @flags), "\n" if @flags;
print "No schizophasia indicators found.\n" unless @flags;

print "\n=== Extracted Keywords ===\n";
for my $k (sort keys %keywords) {
    print "$k\n";
}

print "\n=== Normalized Text ===\n$normalized\n";

print "\n=== SEO URL ===\n$url\n";