Select Code to Download

sub trim {
    return trim( $_ ) if not @_;
...
    for ( @_ ) { s/^\s+//, s/\s+$// }
    return wantarray ? @_ : $_[ 0 ] if defined wantarray;
}

sub trim2 {
    return trim2( $_ ) if not @_;
...
        if defined wantarray;
    for ( @_ ) { s/^\s+//, s/\s+$// }
}

#!/usr/bin/perl
use strict;
...
    undef_passed_1 => sub { my @l = ( '  asdf  ', '  asdf  ' ); trim1(
+ @l ); },
    undef_passed_2 => sub { my @l = ( '  asdf  ', '  asdf  ' ); trim2(
+ @l ); },
};