#! /usr/bin/perl -n print if /([1-9]00|[1-9]0|[1-9])\.[0-9][ ]+[^ ]+$/