perl -ne '$^W=0;print join "\n",(eval{($r=$_)=~s/(\()|(\))|./$1.$2/gs;/$r/s},$@);'
