#!/usr/bin.perl -w
use strict;

my $test = "1234";
my @digits = ($test =~ m/^(.{4,5})$/); 
print "digits = @digits\n";
#prints digits = 1234

$test = "12345";
@digits = ($test =~ m/^(.{4,5})$/); 
print "digits = @digits\n";
#prints digits = 12345

$test = "123456";
@digits = ($test =~ m/^(.{4,5})$/); 
print "digits = @digits\n";
#prints digits =