Language Basics Perl

while($_ = ) {
   print $_;
}