Select Code to Download

sub is_tf {
    my ($in,$out,$label) = @_;
...

is_tf( '*A *B*' ,'<b>A *B</b>'  , "after non-whitespace prolonged");
is_tf( '/**/'   ,'<i>**</i>'    , "nested no letter");