sub filter
{

if($_[0]){

  $_[0]=~s/\s+$//;
  $_[0]=~s/\'/\\\'/g;
  $_[0]=~s/<//g;