use List::MoreUtils qw( apply ); my @users = apply { chomp; s/^\Q$MAIL_ROOT//; } `find ...`;