#!/usr/bin/perl

my @volumes='';
my $labelreex="53B9-969E";
my $labelre="[0-9A-Z]{4}-[0-9A-Z]{4}";

if($labelreex ~= /$labelre/){
    print "$labelreex matches $labelre\n";
}
else{    
    print "$labelreex matches $labelre\n";
}