#!/usr/bin/perl

use strict;

my $num = "123abc";
print "valid\n" if $num > 0 && $num < 99999;
exit;