#!/usr/bin/perl

$/ = '';   # read input by paragraphs

@file = <>;

for($i = 1; $i < @file; $i+=4)  # from field 1 (2nd field); and += for proper loop
{

    print "$file[$i]";
}