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