关于Perl中while和if后面的语句段执行过程的区别

while (<STDIN>) {
    ($firstchar) = split(//, $_);    ($firstchar) = split(//