my (undef, $data) = split / : /, $str;
print "Data: $data\n";