#!/usr/bin/perl

use strict; 
use warnings;


my @test = ( 123, 12345, 12345678, "abc-abc", "abc-abcd" );

foreach my $match ( @test )
{
  if ( $match =~ m/\d{5,8}|\w{3}-\w{4}/ )
  {
    print "$match match\n";
  }
  else 
  {
    print "$match doesn't match\n";
  }
}