in reply to Shorter Code

If @info does not contain "d_" and @data does not contain "i_" you can do:
s/d_|i_//for@info,@data;
Joost.
-- #!/usr/bin/perl -np BEGIN{@ARGV=$0}s(^([^=].*)|=)()s; =Just another perl hacker\