6 charset=$(perl -n -e 's/^.*charset=([\w-]+).*$/uc($1)/e && print' "$pofile")
8 echo pofile=$pofile charset=$charset
10 if [ "$charset" = "UTF-8" ]
12 echo >&2 charset is already utf-8
18 iconv -f $charset -t utf-8 "$pofile" >"$pofile".tmp
19 perl -p -e 's/charset=([\w-]+)/charset=UTF-8/' "$pofile".tmp >"$pofile"