Language Basics Perl

  1. Home
  2. Perl
  3. Language Basics
  4. Loop block
#!/usr/bin/perl
use warnings;
use strict;
if (defined(my $line = <>)) {
  { 
    last if $line =~/quit/;
    print "You entered: $line";
    $line = <>; redo;
  } 
}
print "Bye! \n";