Select Code to Download

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

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