use warnings; $time = scalar localtime(); $time =~ /(\s[A-Z][a-z]+)/; $month = $1; $time =~ /\s(\d+)\s/; $day = $1; print $month," ",$day; print "\n"; if($month eq 'Mar'){print "true\n";} else{print "false\n";} if($day == 9){print"true";} else{print"false";} #prints: Mar 9 false true