#!/usr/bin/perl -w
# Reading protein sequence data using a loop

# Read the protein sequence data from the file one line at a time and print it
while ($protein = <STDIN>) {
	chomp($protein);
	if ($protein eq 'quit') {
		exit;
 	}
	print "$protein\n";
}