$ echo "select to_char(to_date('19830501?','YYYYMMDD'), 'FMMon FMdd, yyyy?')" \ | perl -MDBI -ne ' print DBI->connect("dbi:Pg:")->selectall_arrayref($_)->[0]->[0], "\n"; '; May 1, 1983?