if ( $start =~ /^(.*\.)(\d+)-(\d+)/ ) {
   $start = "$1$2";
   $end   = "$1$3";
} else {
   $end   = $start;
}