use Algorithm::Loops qw( Filter );
my @users = Filter { chomp; s/^\Q$MAIL_ROOT//; } `find ...`;