#!/usr/bin/perl

use strict;
use warnings;

my $lline = '';
while (<>) { $lline = $_ if (length($_) > length($lline)) }
print $lline;
exit;