if ($a =~ /(\d\d):(\d\d)/){
        $h_a = $1;
        $mn_a = 2;
    }

##</code><code>##

$mn_a = $2