if( $string =~ /^1|7|8|9|10|ja|Ja|JA$/ ) {
    # do sth
}