my $circuit_id = ( $if_descr =~ /([^.]*)(?:\.(.*))?/
   ? $1 . (defined($2) ? $2 : '')
   : undef
);

##</code><code>##

(my $circuit_id = $if_descr) =~ s/\.//;