0:23 >perl -wE "my $s = 'xe-2/0/0.0'; $s =~ s{\..*}{}; say $s;"
xe-2/0/0

 0:23 >

##</code><code>##

s{\d\K\..*}{}

##</code><code>##

s{(\d)\..*}{$1}