Select Code to Download

#!/usr/bin/env perl

...
2:NAME:Dave:Phone
3:NAME:Will:Phone
4:NAME:Todd:Phone

(STDOUT)                               There are  1               Dave
+                 Name(s)
(OUTPUT) There are 1 Dave Name(s)
(STDOUT)                               There are  1               Will
+                 Name(s)
(OUTPUT) There are 1 Will Name(s)