use strict; use warnings; use 5.010; say /:(.*),/ while ; __DATA__ host1 dns:192.168.243.30,asdf host2 dns:192.168.243.1,qwert