@images = grep defined, $str =~ m#<story>.*?</story>|<image>(.*?)</image>#gs;

##</code><code>##

my($image) = grep defined, $str =~ m#<story>.*?</story>|<image>(.*?)</image>#gs;