If @info does not contain "d_" and @data does not contain "i_" you can do:

s/d_|i_//for@info,@data;
[download]

Joost.

-- 
#!/usr/bin/perl -np
BEGIN{@ARGV=$0}s(^([^=].*)|=)()s;
=Just another perl hacker\
[download]