#!/usr/bin/env perl

print "\"\n";

use encoding utf8;

while (<>) {
    chomp;

    my @stems;
    if (/STEM/) {

	@stems = /\"([^\"]+)\"/gm
    }

    foreach my $stem (@stems) {

	
	if ($stem =~ /[ɓɗƙ]/) {
	    my $robuststem = $stem;
	    ($robuststem = $robuststem) 
		=~ s/ɓ/b/ig;
	    ($robuststem = $robuststem) 
		=~ s/ɗ/d/ig;
	    ($robuststem = $robuststem) 
		=~ s/ƙ/k/ig;

	    
	    print "$robuststem ROBUST-SPELLING $stem\n" 
	} 
	
	
    }
}

print "\"\n";