if ( $content =~ /\t/ ) {
    $content =~ s/\t//g;
}

##</code><code>##

$content =~ tr/\t//d;

##</code><code>##

    if ( $line =~ /CONTACT/ ) {
        $line =~ s/CONTACT//;

##</code><code>##

    if ( $line =~ s/CONTACT// ) {

##</code><code>##

                if ( $line =~ /(.+?)=.+/ ) {
                    unless ( $cols{$1} and $cols{$1} == 1 ) {
                        $cols{ ucfirst lc $1 } = 1;
                        push @cols, ucfirst lc $1;
                    }

##</code><code>##

        if ( $$row{$_} ) {
            push @rows, $$row{$_};
        }