if ($line =~/(port=([0-9]+))/)
##</code><code>##

if ($line =~/port=([0-9]+)/){
                        $port= $1;
                };