sub newsForgeHandler { $html = shift; my( @rValue ) = (); my ( $headline, $url, $date, $author, $department, $topic, $comments, $section, $image ); #print $html; while( $html =~ s/ .*? (.*?)<\/title>.*? (.*?)<\/url>.*? (.*?)<\/time>.*? (.*?)<\/author>.*? (.*?)<\/department>.*? (.*?)<\/topic>.*? (.*?)<\/comments>.*? (.*?)<\/section>.*? (.*?)<\/image>.*? <\/story>//six ) { $headline = $1; $url = $2; $date = $3; $author = $4; $department = $5; $topic = $6; $comments = $7; $section = $8; $image = $9; push @rValue, { 'headline' => $headline, 'url' => $url, 'date' => $date, 'author' => $author, 'department' => $department, 'topic' => $topic, 'comments' => $comments, 'section' => $section, 'image' => $image }; } return @rValue; } return 1;