||/home/xx> cat test.pl
#!/usr/bin/perl -w
use strict; 
`perl -p -i -e 's/^(.{10})(.{382})(.*)$/$1^$2^$3/' test.txt`;