perl -ne 'print if /(?-xism:.{3})/'