my $rt = [
	[AM => [(qr/\b/) x 2]],
	[japhy1 => [qr/(?:(?=\w)(?<!\w)|(?=\W)(?<!\W))/, qr/(?:(?<=\w)(?!\w)|(?<=\W)(?!\W))/]],
	[japhy2 => [qr/(?(?=\w)(?<!\w)|(?<!\W))/, qr/(?(?<=\w)(?!\w)|(?!\W))/]],
	[ysth => [(qr/(?:(?=\w)(?<!\w)|(?!\w)(?<=\w))/) x 2]],
];

for my $thing (qw(, th this)) {
	for (@$rt) {
		my $try = $_->[0] . (' ' x (6 - length $_->[0]));	# proposer
		my ($lb, $rb) = @{$_->[1]};
		(my $text = "this,that & this, that & this ,that & this , that this")
		=~ s/$lb($thing)$rb/>>$1<</g;
		print "[$try|$thing]$text\n";
	}
}