gistfile1.txt

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

my $keyfile = <STDIN>;
my $separator = <STDIN>;

my @key;
{
  local $/ = "\n\n";
  @key = <STDIN>;
}

foreach my $key (@key){
  my @line = split($/,$key);
  my $id = $line[1];
  $id =~ s/^\s+//;
  print $id,$/;
}