s/\s+//g;

##</code><code>##

OUTER:
while (<>){
   chomp;
   my @items = split m/\s/;
   for my $i (@items) {
       last OUTER unless $i =~ m/^[a-f\d]{2}$/;
   }
   print join '', @items;
}