my $range = join '|', 5278..5391;

my $number = 5300;

print "Matched\n" if $range =~ /\b$number\b/;