Question

Below is my code to check if the word starts with a digit:

    #!/usr/bin/perl

    my $domain_name = @ARGV;

    my $first_letter = substr(($domain_name),0,1);
    print STDERR "first letter is $first_letter \n";

    if($first_letter eq  '0' || $first_letter == 1
       || $first_letter == 2 || $first_letter == 3 || $first_letter == 4
       || $first_letter == 5 || $first_letter == 6 || $first_letter == 7
       || $first_letter == 8 || $first_letter == 9) {

            print STDERR "$first_letter start with digit\n";

    } else {

            print STDERR "$domain_name does not starts with a digit\n";
    }

But when I am printing the $first_letter, it is always displaying 1. Please help.

Answer 1

print "first letter is digit\n" if $ARGV[0] =~ /^\d/;