#!/usr/bin/perl -w
use strict;

while (<>) {
    print if /^Sbjct:\s*\d+\D+\d+$/;
}