perl -e '$_=`perl -v`;while(/\d\,(\s\x4c[^\n]+)/){print$1}'



##</code><code>##


perl -le '$_=`perl -v`;if(/\d\,\s(\x4c[^\n]+)/){print$1}'