my $ip = "1.2.3.4";
$foo = `FOO=\$(echo "\$HOME"); if [ ! -z "\${FOO}" ]; then BAR="\$FOO: $ip" && echo \$BAR;fi`;
use Data::Dump qw(dump);
dump $foo;