CSVのカンマの前後のスペースを除去する Perl ワンライナー

フジモンから sed でどうするのって質問来たが、Perl で回答。

% FOO='   ,4078387448   ,     53745,files,  yohei happy  , aaa' 
% echo $FOO|perl -ple 's/\s+,/,/g;s/,\s+/,/g'
,4078387448,53745,files,yohei happy,aaa