for($to, $from) {
            #make sure it has some sort of sigil
            $_='&' _ $_ unless m'^[$@%&]';
        }