Well ... wrong assumption!

you can do it with 'grep' with the help of 'map':

my @tmp = grep { $_->[0] !~ /^The website has been restructured/ } map
+ { [$text[$_], $arr2[$_], $_] } ( 1 .. $#text );
my @text = map { $_->[0] } @tmp;
my @arr2 = map { $_->[1] } @tmp;
undef @tmp;
[download]

note - this way you create temporary structures (map & grep), so I wouldn't use it on large arrays, but since you wrote it's a 50 elements array ... I guess you can consider this sollution.

Enjoy,
Mickey