Help for this page

Select Code to Download


  1. or download this
    $data =~ m/(<[^>]+>)/;
print $1, "\n";      # print the tag
  2. or download this
    $data =~ m/<([^>]+)>/;
print $1, "\n";      # print the tag