Help for this page

Select Code to Download

Select or download this

use strict;
open INFILE,"infile.txt";
...
  $os+=length($spaces)+total_os;
  return $spaces."<OS=$os>";
}

Select or download this
```
my $space=qr/(?:<OS=\d+>|\s)/;
```