#!/usr/bin/perl -n     
# findlogin2 - print all lines containing the string "login"     
print if /login/;