# Print the results.  I print the keys I've generated for 
# debugging, you normally wouldn't print those.
print q{
,-----------A  !($s->{user} =~ /LadyAleena_($network_string|TV)/ && $s->{name} !~ /TV/),
|           B  !($s->{user} =~ /LadyAleena_($network_string)/ && $s->{name} =~ /TV shows$/),
|           C  !($s->{user} eq 'LadyAleena_TV' && $s->{name} eq 'Premium TV shows'),
|  ,--------D  !($s->{user} eq 'LadyAleena_TV' && $s->{name} eq 'TV shows'),
|  |        E  !($s->{user} eq 'LadyAleena_TV' && $s->{name} eq 'TV networks'),
|  |        F  !($s->{user} eq 'Lady_Aleena' && $s->{name} =~ /(Comedians|Musicians)/),
|  |  ,-----G  !($s->{user} eq 'Lady_Aleena' && $s->{name} =~ /(Horror|Science fiction)/),
|  |  |     H  !($s->{user} eq 'Lady_Aleena' && $s->{name} eq 'Ripley\'s & Guinness'),
|  |  |     I  !($s->{user} eq 'LadyAleena_home'),
|  |  |  ,--J  !($s->{user} eq 'Lady_Aleena' && $s->{name} =~ /(Followers' ...)/),
v  v  v  v
ABCDEFGHIJ
};
for my $s (@showtab_sorted) {
	print $$s{sortflag}, " ", $$s{name}, " (", $$s{user}, ")\n";
}


# The sample input

sub shows_str {
	q{
	Doctor Who (LadyAleena_TV)
	Hercules & Xena (LadyAleena_TV)
	Highlander (LadyAleena_TV)
	Star Trek (LadyAleena_TV)
	Leverage (LadyAleena_TNT)
	Body of Proof (LadyAleena_ABC)
	In Plain Sight (LadyAleena_USA)
	Necessary Roughness (LadyAleena_USA)
	seaQuest (LadyAleena_NBC)
	Sanctuary (LadyAleena_SyFy)
	Fairly Legal (LadyAleena_USA)
	White Collar (LadyAleena_USA)
	MythBusters (LadyAleena_TV)
	Painkiller Jane (LadyAleena_SyFy)
	Jericho (LadyAleena_CBS)
	Harry's Law (LadyAleena_NBC)
	Chuck (LadyAleena_NBC)
	Grimm (LadyAleena_NBC)
	Once Upon a Time (LadyAleena_ABC)
	Primeval (LadyAleena_TV)
	Stargate (LadyAleena_SyFy)
	Eureka Warehouse13 Alphas (LadyAleena_SyFy)
	No Ordinary Family (LadyAleena_ABC)
	Buffy & Angel (LadyAleena_TV)
	Covert Affairs (LadyAleena_USA)
	Studio 60 (LadyAleena_NBC)
	Buck Rogers 25th Century (LadyAleena_NBC)
	Lipstick Jungle (LadyAleena_NBC)
	Crossing Jordan (LadyAleena_NBC)
	Law & Order (LadyAleena_NBC)
	Firefly (LadyAleena_FOX)
	Advtr of Brisco County Jr (LadyAleena_FOX)
	Babylon 5 (LadyAleena_TV)
	Haven (LadyAleena_SyFy)
	Falling Skies (LadyAleena_TNT)
	Bones & The Finder (LadyAleena_FOX)
	The Mercury Men (LadyAleena_SyFy)
	Andromeda (LadyAleena_SyFy)
	Burn Notice (LadyAleena_USA)
	Castle (LadyAleena_ABC)
	Numb3rs (LadyAleena_CBS)
	Rizzoli & Isles (LadyAleena_TNT)
	ER Third Watch Med Invgtn (LadyAleena_NBC)
	NBC TV shows (LadyAleena_NBC)
	USA TV shows (LadyAleena_USA)
	ABC TV shows (LadyAleena_ABC)
	TNT TV shows (LadyAleena_TNT)
	CBS TV shows (LadyAleena_CBS)
	FOX TV shows (LadyAleena_FOX)
	Premium TV shows (LadyAleena_TV)
	TV shows (LadyAleena_TV)
	TV networks (LadyAleena_TV)
	Musicians (Lady_Aleena)
	Comedians (Lady_Aleena)
	Science fiction (Lady_Aleena)
	Horror (Lady_Aleena)
	Ripley's & Guinness (Lady_Aleena)
	Utilities (LadyAleena_home)
	Groceries (LadyAleena_home)
	Software (LadyAleena_home)
	Stores (LadyAleena_home)
	List subscribers (Lady_Aleena)
	Followers' businesses (Lady_Aleena)
	}
};

__END__