Help for this page
0:23 >perl -wE "my $s = 'xe-2/0/0.0'; $s =~ s{\..*}{}; say $s;" xe-2/0/0 0:23 >
s{\d\K\..*}{}
s{(\d)\..*}{$1}