Help for this page

Select Code to Download

Select or download this

use strict;

...
{
    print( "Failure!\n" );
}

Select or download this
```
  $line =~ s!(\d+)!<lr=C$1>$1</lr>!g;
```