#!/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;

##</code><code>##

{
  PLBCLK  => { "input-output" => -4, "rising-output" => -3 },
  PLBCLK1 => { "input-rising" => -1, "rising-rising" => -2 },
}