use strict;
use warnings;

use Test::More tests => 2;

my $wontmatch = <<EOT;
==============================================================================
LDP Sessions
==============================================================================
Peer LDP Id        Adj Type   State         Msg Sent  Msg Recv  Up Time
------------------------------------------------------------------------------
------------------------------------------------------------------------------
No Matching Entries Found
==============================================================================
EOT
my $willmatch = <<EOT;
==============================================================================
LDP IPv4 Sessions
==============================================================================
Peer LDP Id         Adj Type  State         Msg Sent  Msg Recv  Up Time
------------------------------------------------------------------------------
1.1.1.1:0     Targeted  Established   822443    822431    273d 15:02:20
------------------------------------------------------------------------------
No. of IPv4 Sessions: 1
==============================================================================
EOT

my $regex = qr/\d\.\d/;
unlike ($wontmatch, $regex, 'No match');
like ($willmatch, $regex, 'Good match');