use Data::Dumper;
....
<snip>
....
         if ($text2 =~ m/^The website has been restructured/) {
             print "text array before is " . Dumper(\@text, $value);
             splice(@text,$value,1);
             print "text array after is " . Dumper(\@text, $value);
             splice(@links,$value,1); 
             
                  }