my $a = qq(foo bar foo bar foo bar foo bar foo bar);
$a =~ s/((\w+\s+){4}).+/$1.../g; 
print $a;
__END__
output:
foo bar foo bar ...