Help for this page
perl -e ' print "[$_]\n" for ( split /:/ => ":xxx" ) ' [] <== empty $message [xxx]