print "$text\n" if ( $text =~ /[^.\d]?\d{1,2}[^.\d]?/ );