sub plp_writeln {
    # plp_writeln( $HANDLE, @elem );
    # writes @elem joined as one line to the file $HANDLE for .plp
    my $HANDLE = shift;
    my @elem = @_;
    
    print $HANDLE, @elem, qq[\x{0D}\x{00}\x{0A}\x{00}];
}

##</code><code>##

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;
}