Help for this page

Select Code to Download


  1. or download this
    perl -wE ' my $remove = q{<div><div class="blue"></div></div>};
my $str = q{</div></div><div><div class="blue"></div></div>};
say $str =~ s/$remove//r;'
  2. or download this
    perl -wE ' my $remove = qr{<div><div class="blue"></div></div>};
my $str = q{</div></div><div><div class="blue"></div></div>};
say $str =~ s/$remove//r;'
  3. or download this
    perl -wE ' my $remove = m/<div><div class="blue"><\/div><\/div>/;'

Use of uninitialized value $_ in pattern match (m//) at -e line 1.
  4. or download this
    $ perl -wE ' my $remove = q{foo}; my $str = q{barfoobaz}; say $str =~ 
+s/$remove//;'
1
...
$ perl -wE ' my $remove = q{foo}; my $str = q{barfoobaz}; say $str =~ 
+s/$remove//r;'
barbaz