perl -i.bak -ple 'substr($_, 25, 0, " ") if length > 24' filename.txt