while (<>) {
if (/fred/) {
print;
}
}