Help for this page

Select Code to Download


  1. or download this
    perl -pi -e 'substr($_,589,35) =~ s/(\s*)(\w+)*/$2$1/ if /^(.{589})(\s
+{1,34})/' file.txt
  2. or download this
    perl -pi -e 'substr($_,589,35) =~ s/(0*)(\w+)*/$2($?{ ' ' x length($1)
+ })/ if /^(.{589})(0{1,34})/' file.txt
  3. or download this
    perl -pi -e 'substr($_,589,35) =~ s/(0*)(\w+)*/$2($?{ " " x length($1)
+ })/ if /^(.{589})(0{1,34})/' file.txt