@yoheia つ s/\G(('[^']*'[^']*?)*[^']*?)[ ]+/$1 /g Twitter. It's what's happening. Perl ワンライナーで試してみると、 % cat foo.c select ' ','a bc' from emp where ename='a '; % perl -pe 's/\G((\x27[^\x27]*\x27[^\x27]*?)*[^\x27]*?)[ ]+/$1 /g'…