Select Code to Download

print $& if $var =~ /^[1-3]$/;

sub look_into {
   my $archetype= shift;
...
if($single_digit_in_range ->($_)){ print "single digit in range!" }
if($double_digit_in_set   ->($_)){ print "double digit in set!" }
#etc.