#!/usr/bin/perl

use locale;
use attr;

while (<>) {
    s/,(.*)$/','.attr::canonize($1)/e;
    print;
}