Select Code to Download

use strict;
use warnings;
...

my $parent = substr($regex, rindex($regex, $website));
print $parent;

use strict;
use warnings;
...
my $tregex = uc($regex);
my $parent = substr($regex, rindex(uc($regex), uc($website)));
print $parent;