Help for this page
my %subst; @subst{@first_half} = @second_half; s/\Q$_\E/$subst{$_}/ for keys %subst;
for (my $i = 0; $i < @first_half; $i++) { s/\Q$first_half[$i]\E/$second_half[$i]/; }
www.com | www.net | www.org
No recent polls found