Help for this page

Select Code to Download


  1. or download this
    s{(<[^>]+>)|%([^%]+)%}{
    $1 || $replace{$2} // "%$2%"
}ge;
  2. or download this
    my @matches = grep defined, $data =~ m{<[^>]+>|%([^%]+)%}g