#!/usr/bin/perl
use 5.016;
# 1037230

my $string = "      Code (inc. data)   RO Data    RW Data    ZI Data      Debug   Object Name\n";        # no trailing full stop/dot/period

if ( $string =~m#      Code \(inc\. data\)   RO Data    RW Data    ZI Data      Debug   Object Name#) {
    say "Good to go";
}