my $day2test = <<>>; #from STDIN or file if defined on command line
chomp $day2test;
if ("1sun2mon3tue4wed5thu6fri7sat0" =~ /(\d)$day2test\d/i) {
        print "Valid, day number $1\n";
}
else {
       die "Can't recognize day\n";
}