3 for i in po/debtags.*.po
5 perl -i -p -e 'if (/^\s*$/) { $seen=1 };
6 if ($begin) { s/^"\s/"/ } $begin=0;
7 s/^(msg(id|str) ")\s/$1/;
8 if ($seen) { s/^"\s*\.\\n"/"\001"/g; s/\s*\\n//g; s/\001/\\n/g }
9 if (/^msg(id|str) ""/) { $begin=1 };
10 if (/^"\\n"/) { $begin=2 };