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