#!/usr/bin/env perl

use strict;
use warnings;
use autodie;

my $report_file = 'pm_1080084_timing_manual.rpt';
my %PG;
local $/ = "\nStartpoint";
open my $fh, '<', $report_file;
while (<$fh>) {
    /[(](\w+)[^(]+[(](\w+)[^:]+:\s+(\w+).*?slack[^-]+(-\d+)/s;
    $PG{$3}{"$1-$2"} = $4; 
}   

use Data::Dump;
dd \%PG;