foreach $line (@file)
{
  $line =~ s/\s\b{70}/$1\n/g);
}