http://qs321.pair.com?node_id=873584


in reply to Search pattern from end of line

my ($rpm) = $line =~ />([^>]+)</rpm>\s*$/;