my $length = scalar @arr;
for (my $i =0; $i <= $length; $i++){
    $arr[$i] =~ s/<pattern>/<pattern to be changed to>/g;
}
 print "@arr";