$str =~ m/[^<story>].*<image>(.*)<\/image>.*?[^<\/story>]/s;
 ## <- w/o the "?" should work