$ perl5180 -e'/(?