$str =~ /food1=(\w+)/;

print $1;