Public Scratchpad
Download
,
Select Code To D/L
print "Enter tx / us : ";
my $tx = <STDIN>;
chomp($tx);
if($tx =~ /\d{8}/) {
print "ok\n"; } else {
die "Tx should be digits only and 8 digits long(multi)\n";
}