#! /usr/bin/perl ($type, $colnum, $org) = @ARGV; if ($type == 16) { # BOOLOID print ($org eq "t" ? "TRUEEEE" : "FAAALSE"); } elsif ($type == 25 || $type == 705) { # TEXTOID || UNKNOWNOID print '$$'.$org.'$$'; } else { print $type; }