Help for this page

Select Code to Download


  1. or download this
    while (<>) {
  chomp;
  substr($_, 24, 0, ' ') if length() > 24;
  print("$_\n");
}
  2. or download this
    perl -i~ -ple "substr($_, 24, 0, ' ') if length() > 24" file