my $len = scalar @delete; for ( my $i = 0; $i <=$len; $i++){ my $first = $delete[$i]; chomp $first; $first =~ s:/:\\\\/:g; `sed -i "/$first/d" file2`; }