in reply to IF Statement Testing

<=> is wrong.
you can use regular expression !~

$expire !~m/^(1|2|3|4|5|6|7|8|9|10|11|12|13|14)$/

updated

Prasad

In Section Seekers of Perl Wisdom