#!/usr/local/bin/perl use strict; use warnings; if('J' gt 0){ print 'yes'; }else{ print 'no'; }