perl -MData::Dump -e "dd split /./, $ARGV[0]" assasas
()