#!/usr/bin/perl
$data = "header1        header2     header3     header4     header5 
-------------------------------------------------------
data1           1a          1b          1c          1d
data2           2a          2b          2c          2d
data3           3a          3b          3c          3d
(3 rows affected)";
 
if ($data =~ /header5\s[-\s]*([^(]*)/){
    print $1;
    print "inside if\n";
}
else {
    print "else part\n";   
}

IyEvdXNyL2Jpbi9wZXJsCiRkYXRhID0gImhlYWRlcjEgICAgICAgIGhlYWRlcjIgICAgIGhlYWRlcjMgICAgIGhlYWRlcjQgICAgIGhlYWRlcjUgCi0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0KZGF0YTEgICAgICAgICAgIDFhICAgICAgICAgIDFiICAgICAgICAgIDFjICAgICAgICAgIDFkCmRhdGEyICAgICAgICAgICAyYSAgICAgICAgICAyYiAgICAgICAgICAyYyAgICAgICAgICAyZApkYXRhMyAgICAgICAgICAgM2EgICAgICAgICAgM2IgICAgICAgICAgM2MgICAgICAgICAgM2QKKDMgcm93cyBhZmZlY3RlZCkiOwoKaWYgKCRkYXRhID1+IC9oZWFkZXI1XHNbLVxzXSooW14oXSopLyl7CiAgICBwcmludCAkMTsKICAgIHByaW50ICJpbnNpZGUgaWZcbiI7Cn0KZWxzZSB7CiAgICBwcmludCAiZWxzZSBwYXJ0XG4iOyAgIAp9