in reply to unicode in perl

i have updated the output