perl -le 'open(X,shift())or die "$!";seek(X, 12000, 0)or die "$!";read X, $b, 40;print $b, "\n", " " x 19, "^\n"' foo.xml