#!/usr/bin/perl

use strict;
use warnings;

while (my $line = <>) {
  chomp($line);

  if ($line =~ /(?:\d{2,}.\d|[5-9].\d|4.[1-9]) inches/) {
    print qq/[>  4.0"]: $line\n/;
  } else {
    print qq/[<= 4.0"]: $line\n/;
  }
}