Select Code to Download

sub is_hex {
    my $self = shift if ref($_[0]); 
...
    
    return;
}

use warnings;
use strict;
...
    }
}
__END__

$ perl -l 629540.pl
1234    is hex
...
foo     is not hex
0xABCD  is not hex
bar     is not hex