heya there are a couple of good example on how to do this in the perl cookbook the trim function in chapter one might help the source code from the book is avail at ora.com
pgsql-general by date:
Соглашаюсь с условиями обработки персональных данных