Help for this page
perl -e "if(length($ARGV[0])==11){print $ARGV[0], (substr($ARGV[0],-10 +,6))}" 1234567890_ 1234567890_234567