but thought there might be a faster way to do this.

It's pretty trivial:

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