Lorem Ipsum is simply dummy text of the printing and typesetting industry. Lorem Ipsum 

has been the industry's standard dummy text ever since 

the 1500s, when an unknown printer took a galley of type and scrambled it to make a type 

specimen book. It has survived not only five centuries, but also the leap into electronic 

typesetting, remaining essentially unchanged. It was popularised in the 1960s with the 

release of Letraset sheets containing Lorem Ipsum passages, and more recently with desktop 

publishing software like Aldus PageMaker including versions of Lorem Ipsum.

##</code><code>##

sub cleanup_start_words {

	my $text = $_[0];

	my @split = split //, $text;
	my @keywords = split //, $_[1];


	return $text;
	
	# see if we have any charachters we wanna skip in the first 10 charachters
	my $remove_at;
	my $do_remove = 0;
	for (my $x = 0; $x < 40; $x++) {
		if ($split[$x] =~ /[\.\!\?,\)\:\:]/) {	
			$do_remove = 1;
			$remove_at = $x;
		}
	}

	

	if ($do_remove) {

		my $i = 0;
		foreach (@split) {			
			$i++;
			if ($i > $remove_at) { last; }
			if (m/[\.\!\?,]\)\:/) {				
#				print "skipping [last] $_ \n";
				last;
			} else {
#				print "skipping $_ \n";				
			}
		}

	 # didn't seem to work right when doing it in the foreach above, so get rid of the 
	 # charachters we dont want here
		for (my $ii = 0; $ii < $i; $ii++) {
			shift @split;
		}

		my $tmp = join("",@split);
		   $tmp =~ s/^[\.\!\?,\)\:]//;
           $tmp =~ s/^\s+//;

		return $tmp;

	} else {
		return $text;
	}

}