- $manuf =~ s/\s(the|inc|incorporated|plc||systems|corp|corporation|a\/s|ab|ag|kg|gmbh|co|company|limited|ltd)(?= )//gi;
- # Cleanup multiple spaces
- $manuf =~ s/^\s+//g;
- $manuf =~ s/\s+/ /g;
- # Truncate all names to a reasonable length, say 10 characters.
- $manuf = substr($manuf, 0, 10);
- # Remove trailing whitespaces
- $manuf =~ s/\s+$//g;