{ # $" is the separator Perl uses to join array elements within a # double-quoted string, in effect, as the value of join($", @find) local $" = '|'; s/@find/$replace/g; tr/=/:/; }