use warnings;
use strict;
use 5.010;

map{say /(.*),/} (split /:/)[1] while <DATA>;

__DATA__
host1    dns:192.168.243.30,asdf
host2    dns:192.168.243.1,qwert