perl -le'while(<STDIN>) { print $1 if /^$ARGV[0]:([^:]*):$ARGV[1]:/ }'