perl -pi -e "s/^(.{13})/$1:/;" -MO=Deparse
BEGIN { $^I = ""; }
LINE: while (defined($_ = <ARGV>)) {
    s/^(.{13})/$1:/;
}
continue {
    die "-p destination: $!\n" unless print $_;
}
-e syntax OK