sub plp_write {
    # plp_write( $HANDLE, @elem );
    # writes @elem to the file $HANDLE for .plp, interpolating newlines
    my $HANDLE = shift;
    my @elem = @_;
    
    ( my $str = join('',@elem) )=~s[\n][\x{0D}\x{00}\x{0A}\x{00}]gs;
    print $HANDLE, $str;
}