perl -e -0777 "s/func_a\((.*)?\);/func_b(\1,\n6)/s" < file |more
perl -e "BEGIN {$/=undef} s/func_a\((.*)?\);/func_b(\1,\n6)/s"