perl -i~ -ple "substr($_, 24, 0, ' ') if length() > 24" file