Select Code to Download

sub trim
{
...
    }
    return wantarray ? @args : $args[0];
}

#!/usr/bin/perl

...
test 1: ==test== test  ==
test 2: == 1234  ====
test 3: == 1234  ==abc==  a   b    c ==