#!/usr/bin/env perl
# $Id: pstrings,v 1.2 2019/05/31 19:40:38 friedman Exp $

use strict;

$/ = undef;
map { while (/([\x20-\x7e\t ]{4,})/g) { print $1, "\n" } } <>;

# eof