$ perl -E '$_=qq{parameter=TO_DATE('1900-01-01','YYYY-MM-DD')\n};print qq{Before: $_};s{=(.*)$}{="$1"};print qq{ After: $_}'
Before: parameter=TO_DATE(1900-01-01,YYYY-MM-DD)
 After: parameter="TO_DATE(1900-01-01,YYYY-MM-DD)"