use List::MoreUtils 'firstval';
my $match = firstval { chomp; $LEN == length } <STDIN>;