Help for this page

Select Code to Download


  1. or download this
    use HTML::Entities;

...
my $sep = decode_entities('✶');
my @v = ($text =~ /\{$sep(.*?)$sep\}/sg); # alle Verweise
# @v contains all patterns (which means that they match)
  2. or download this
    $b = "Adjektive (Nominalflexion)~87";
$c = "\{$sep$b$sep\}";
$r = "<div>some Text $b some other text</div>";
$text =~ s/$c/$r/s;