Select Code to Download

my $idx = rindex($text, "Tags");
if ($idx > -1) {
  substr($text, $idx) = '';
}

$text =~ s/(.*)Tags.*/$1/s;