while(<STDIN>) {
    $l=$_;
    chomp($l);
    $l =~ s/^.*({{.*}},)/$1/;
    print $l."\n";
}