non ho capito molto quello che vuoi, comunque, ti basta così?

se sai che i valori sono sempre 11 e 4
$porta1 = $x[8];
$porta1 =~ s/11\.//;

$porta2 = $x[9];
$porta2 =~ s/0\.//;

se vuoi evitare di sapere il primo nr:
@mom = split(/\./,$x[8]);
$porta1 = $mom[1];

@mom = split(/\./,$x[9]);
$porta2 = $mom[1];

... e ci sono molti altri modi x farlo ...