in reply to Perl variant of linux tool strings

Depending on your needs, this may be doable with just a regular expression... 

while (/([[:print:]]){4,}/g)
{
  print $1,$/;
}

[download]

In Section Seekers of Perl Wisdom