Help for this page

Select Code to Download

Select or download this

$ perl -MO=Deparse,-p -e 'substr ( $_,2,8 ) = "        " && substr ( $
+_,15,5 ) = "     " if /^AB/'
(/^AB/ and substr($_, 2, 8) = (substr($_, 15, 5) = '     '));
...
AB     12345     WORLD
$ echo "AB2014052012345HELLOWORLD" | perl -pe 'substr ( $_,2,8 ) = "  
+      " and substr ( $_,15,5 ) = "     " if /^AB/'
AB        12345     WORLD