my @vals = $ARGV[ 0 ] =~ /../g;
print @vals;