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