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