#
use Modern::Perl;
use Data::Dump qw/dump/;

local $/ = "__________________________________________________________\n";

my %results;

while ( my $record = <DATA> ) {
    my $pass = $record =~ m/\Q***Passed***\E/ ? 'Passed' : 'Failed';
    for my $line ( split /\n/, $record ) {
        next unless $line =~ /^\[/;
        my ( $case_req, $url ) = split /\s+-\s+/, $line;
        $results{$pass}{$case_req}{$url}++;
    }
}
say dump(%results);

__DATA__
Execution start time 09/13/2013 02:43:55 pm

[Case-Url] - www.google.com


[Req-URL ] - www.qtp.com


***Passed***
__________________________________________________________

[Case-Url] - www.yahoo.com


[Req-URL ] - www.msn.com


***Passed***

__________________________________________________________

[Case-Url] - www.google.com


[Req-URL ] - www.qtp.com


***Failed***

##</code><code>##

(
  "Passed",
  {
    "[Case-Url]" => { "www.google.com" => 1, "www.yahoo.com" => 1 },
    "[Req-URL ]" => { "www.msn.com" => 1, "www.qtp.com" => 1 },
  },
  "Failed",
  {
    "[Case-Url]" => { "www.google.com" => 1 },
    "[Req-URL ]" => { "www.qtp.com" => 1 },
  },
)