#!/usr/bin/perl
use strict;
use diagnostics;

my $line;

$/ = qq(%\n);
rand($.) < 1 && ($line = $_) while <>;
print substr($line,0, length($line) -2);