#!/usr/bin/perl
use strict;
use warnings;

my ( $sp, $port ) = qw( A 5 );

# perldoc perlretut; perldoc perlrequick; perldoc perlre
my $regex = qr{

        SP\sName:\sSP\s\Q$sp\E          \s+
        SP\sPort\sID:\s\Q$port\E        \s+
        .*
        Link\sStatus:\s(\S+)            \s+
}sx;

{
        # perldoc perlvar
        local $/ = "\n\n";

        while ( my $block = <DATA> ) {

                if ( $block =~ $regex ) {
                        print "Link Status: $1\n";
                }
        }
}

__DATA__

SP Name: SP A
SP Port ID: 4
SP UID: 50:06:01:60:C1:E0:2B:7A:50:06:01:60:41:E0:2B:7A
Link Status: Up
Port Status: Online
Switch Present: YES
Switch UID: 10:00:00:05:1E:03:D9:16:20:07:00:05:1E:03:D9:16
SP Source ID: 67328
MAC Address: Not Applicable
SFP State: Online
Reads: 3064353
Writes: 17936913
Blocks Read: 103971645
Blocks Written: 867380028
Queue Full/Busy: 0

SP Name: SP A
SP Port ID: 5
SP UID: 50:06:01:60:C1:E0:2B:7A:50:06:01:61:41:E0:2B:7A
Link Status: Down
Port Status: Online
Switch Present: NO
MAC Address: Not Applicable
SFP State: Online
Reads: 0
Writes: 74801
Blocks Read: 0
Blocks Written: 19186170
Queue Full/Busy: 0