while (<>) { substr($_, 24, 0, ' '); print; }