#!/usr/bin/perl -n

print "$2\n" if /^\t(.)\t(.*)$/
