die "No data found" unless /...(...)/; 
my $value = $1;/
##</code><code>##

my $value; if (/...(...)/) { $value = $1 };
##</code><code>##

...
    my $port = '<no port found>';
    if ($line =~/(port=([0-9]+))/i) {
        $port= $2;
    };