Quick start:

use LWP::Simple;
use XML::RSS;

while ( my $url = <DATA>) {
    chomp $url;
    my $xml = get( $url ) or next;
    my $rss = XML::RSS->new;
    eval { $rss->parse( $xml ) };
    next if $@;
    for my $item ( @{ $rss->{'items'} } ) {
        # do stuff with $item
    }
}

__DATA__
http://example.com/feed.rss
http://example2.com/feed.rdf
http://example3.com/feed.xml
[download]

Welcome to the Monastery!

We also have projects to do, so we don't have time to up and write full blown scripts for people to complete their projects (especially when you're getting paid for it and we aren't).

What we will do is help guide you towards a solution after you can show that you've made some attempt (by posting your code) and explaining where exactly you're stuck.

no absolutely. i was looking for tips on where to get started or some directional advice.

Here's a working sub from a chat bot of mine (UPDATE: some cleanup for OP):

=pod
Usage:
   atom_feed({
      feed       => 'https://example.com/feed.atom',
      newer_than => 1440
   });
=cut

sub atom_feed
{
   my ( $arg ) = @_;
   my $feed       = $arg->{feed};
   my $newer_than = exists $arg->{newer_than} ? $arg->{newer_than}
      : $c->{newer_than};
   my @events;

   warn "Getting atom feed for [$feed] ".
      "records newer than [$newer_than]min" if $args->{debug};

   my $returned_xml = XML::Feed->parse( URI->new( $feed )) or
      die "Feed error with [$feed] ".XML::Feed->errstr;

   for my $next_entry ( $returned_xml->entries )
   {
      warn "Got bug title [$next_entry->{title}]" if $args->{debug};

      # Get only entries of a specific title and age.
      if ( $next_entry->title =~ m/\A\w+                    # Start 
            \s+
            \#\d{4,5}                                       # bug numb
+er
            \s+
            \( (Open|Closed|Merged|Rejected|Unconfirmed) \) # Status o
+f bug
         /ix 

         and

         time_compare({
            time       => $next_entry->updated,
            newer_than => $newer_than
         })
      )
      {
         push @events, qq{$next_entry->title, $next_entry->link};
      }
   }
   say $_ foreach ( @events );
   return \@events;
}
[download]

not sure how this is supposed to grab the rss feeds. im trying to understand the logic behind this sub routine. Thanks

Updated for you.

Neil Watson
watson-wilson.ca