if ( ($suffix) = $R2 =~ /(uciones|ución)$/ ) {

        # ución uciones
        # replace with u if in R2
        $word =~ s/$suffix$/u/;
        print "Step 1 case 4: $word\n" if $DEBUG;
}