Help for this page
my @third_fragments = grep -v ($rsite3), $second_fragments[$i];
perldoc -f grep
$ perl -e 'my @number_larger_than_5 = grep {$_ > 5} 1..10; print " @nu +mber_larger_than_5";' 6 7 8 9 10