Help for this page

Select Code to Download

Select or download this

  DB<114> $in_str = 'aa<c><d>r';
 => "aa<c><d>r"
...
  DB<117> if ($in_str =~ /aa((<[^>]*>)*)$/) {print "$1"}
 => 1
<c><d>