Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...

__DATA__
...
  2. or download this
    $line=; # Just plain wrong!

...
$t_book=~s/\l=([a-z]+)\/$1/ig; # The \/ is wrong!

$t_book=~s/<(|/)(B|I|SC|U)>//ig; # The |/ is wrong (and why would you 
+want to capture it?)