$x=`cat <<endl | grep whatever
yadda yadda
whatever
yadda yadda
endl`;
chomp $x;
print qq{\$x="$x"\n};