sub strip {
    s/\A\s+//, s/\s+\z// for my @r = @_;
    @r
}