Select Code to Download

use strict;
use warnings;
...

__DATA__
...

$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?)