#!/usr/bin/perl

@file = <>;

for($i = 0; $i < @file; $i+4)
{

    print "$file[$i]";
}