use strict; use warnings; use utf8; my $input = ; my $answer = ""; chomp($input); my @numbers = split //, $input; if (($numbers[0] == 4) || ($numbers[0] == 5)) { $answer = "Yes"; } else { $answer = "No"; } print $answer;