sub len{
        return do { local(@ARGV, $/) = $_[0]; <> } =~ y===c; 
}