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