my @users = map { my $s = $_; # Protect the caller. chomp($s); $s =~ s/^\Q$MAIL_ROOT//; $s } `find ...`; # Return the changed value.