>perl -E '$_="ABC";$replace="qx|head -5 /etc/passwd|";s/B/$replace/ee;say'
Aroot:x:0:0::/root:/bin/bash
bin:x:1:1:bin:/bin:/bin/false
daemon:x:2:2:daemon:/sbin:/bin/false
adm:x:3:4:adm:/var/log:/bin/false
lp:x:4:7:lp:/var/spool/lpd:/bin/false
C