use strict;
use warnings;

use Test::More tests => 1;

my $vmstr = 'zldcdabcdef14-vos-fxohr-correlator-00';

my ($digits) = $vmstr =~ /-(\d\d)$/;

my $instance = "/instance-$digits";

is $instance, '/instance-00';