Select Code to Download

A<a string>
ABBR<a string>
...
SUP<a string>
TT<a string>
VAR<a string>

A<link|href="url">
I<italic text|style="color:blue">

I<A<link|href="url">|style="color:blue">

package Base::HTML::Inline;
use strict;
...
}

1;

my $text = 'Anyone who watches the Syfy channel knows that on Monday n
+ights they aired three television series I<A<EurSUP<e>ka|href="Movies
+_by_series.pl?series=EWA#EUReKA">|class="title">, I<A<Warehouse 13|hr
+ef="Movies_by_series.pl?series=EWA#Warehouse_13">>, and I<A<Alphas|hr
+ef="Movies_by_series.pl?series=EWA#Alphas">>. Some might not be aware
+ that these three series have formed a crossover cosmology which I ca
+ll A<EWA|href="Movies_by_series.pl?series=EWA"> <!-- This is a long s
+tring. -->';

$VAR1 = [
          'Anyone who watches the Syfy channel knows that on Monday ni
+ghts they aired three television series I',
...
          '<EWA|href="Movies_by_series.pl?series=EWA">',
          '.'
        ];

sub fancy_splice { 
  my ($amount, @in_list) = @_;
...
  }
  return $list;
}

$VAR1 = [
          [
...
            '.'
          ]
        ];

Anyone who watches the Syfy channel knows that on Monday nights they a
+ired three television series <i class="title"><a href="Movies_by_seri
+es.pl?series=EWA#EUReKA">Eur<sup>e</sup>ka</a></i>, <i><a href="Movie
+s_by_series.pl?series=EWA#Warehouse_13">Warehouse 13</a></i>, and <i>
+<a href="Movies_by_series.pl?series=EWA#Alphas">Alphas</a></i>. Some 
+might not be aware that these three series have formed a crossover co
+smology which I call <a href="Movies_by_series.pl?series=EWA">EWA</a>