#!/usr/local/bin/perl
use strict;
use warnings;

if('J' gt 0){
warn 'yes';

}else{
warn 'no';
}