#!/usr/bin/perl

while(<STDIN>){
  if(/Document is valid PDF\/A/){ print $_; }
}