open(FILE, "file.txt") or die "Oops:$!";
my $contents = <FILE>;

while (<FILE>)
{
   do every possible s/// with the two arrays here
}