Lines Matching refs:firstchar
3638 my $firstchar = "";3640 read(PROFILE, $firstchar, 1);3641 seek(PROFILE, -1, 1); # unread the firstchar3642 if ($firstchar !~ /[[:print:]]/) { # is not a text character