# explicit
    my $str = 'Just another perl hacker';
    print trim($str, 4); # 'Just'

    # implicit
    $_ = 'Just another perl hacker';
    print trim(undef, 4); # 'Just'