sub chimpx {
    my $pat = @_ ? shift : $/; for @_ ? @_ : $_;
}