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