Select Code to Download

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

chimpx $pat, my $dst = $src;

sub chimpx {
    my $pat = @_ ? shift : $/;
...
    s/^(?:\Q$pat\E)*// for @$targs;
    return wantarray ? @$targs : $targs->[0];
}

use Test::More tests => 18;

...
    is($y1, 'ac',     'scalar multi args - 1st result verification');
    is($y2, 'ad',     'scalar multi args - 2nd result verification');
}