du /path_to_dir | perl -ne 'print if ( (split /\s+/)[0] > 1000 )'