$str=~s/\n//g; 
$str =~ m%<story>.*</story><image>(.*)</image>%;