#!/bin/perl
use POSIX;
use FileHandle;
use integer;
autoflush STDOUT 1;

while (<>) {
  ($four) = /(Q\d+(\.\d)?) /;
  print "<$four>";
}

