Help for this page

Select Code to Download


  1. or download this
    my $idx = rindex($text, "Tags");
    if ($idx > -1) {
      substr($text, $idx) = '';
    }
    
  2. or download this
    $text =~ s/(.*)Tags.*/$1/s;