Select Code to Download

#  $usr = system ("listusr | grep $_ | cut -d ' ' -f1,3");
#  becomes: 
my @usr = map { (split(/[\t\n\s]+/,$_))[0,2] } grep /$_/,qx(listusr);