#!/usr/bin/perl

while(<>) {
  chomp;
  @labels = split /,\s*/ ,$_;
  print $labels[$#labels] . "\n";
}
