last if
#!/usr/bin/perl -w use strict; while (<STDIN>) { last if $_ eq "done\n"; print "You entered: $_"; } print "All done!\n";