perl -ne 'print "$1\n" while /([\011\040-\176]{4,})/g' dateiname.ext > ausgabe.txt