sub trim {
    for (@_) {
        next if is_readonly($_);
        s/^\s+//;
        s/\s+$//;
    }
}