abc/def
sde/dfg/htf

##</code><code>##

abc/def = 100
sde/dfg/htf = 230
dad/fry = 000

##</code><code>##

my $var = "sde\\/dfg\\/htf";
`sed -i '/$var/d' ADT_DVEBMGS33_ldciadt`;

##</code><code>##


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`;
}