my $string = "1:00";
if ( do { no warnings qw( numeric ); int( $string ) } > 3 ) {
   say ">= 4";
} else {
   say "< 4";
}

##</code><code>##

my $string = "1:00";
if ( do { no warnings qw( numeric ); $string >= 4 } ) {
   say ">= 4";
} else {
   say "< 4";
}