#!/usr/bin/perl
# your code goes here
use strict;
use warnings;
my $ln;
while(my $line = <DATA>){
if($ln && $ln =~ /jimmy/ && $line =~ /johny/){
#print whatever you need to
print "ln is: $ln line is $line"; }
$ln = $line;
}
__DATA__
1 XXXX jimmy XXXXX XXXXX
2 XXXX johny XXXXX XXXXX
3 XXXX jimmy XXXXX XXXXX
4 XXXX jimmy XXXXX XXXXX
5 XXXX johny XXXXX XXXXX
IyEvdXNyL2Jpbi9wZXJsCiMgeW91ciBjb2RlIGdvZXMgaGVyZQp1c2Ugc3RyaWN0Owp1c2Ugd2FybmluZ3M7Cm15ICRsbjsKd2hpbGUobXkgJGxpbmUgPSA8REFUQT4pewoJaWYoJGxuICYmICRsbiA9fiAvamltbXkvICYmICRsaW5lID1+IC9qb2hueS8pewoJCSNwcmludCB3aGF0ZXZlciB5b3UgbmVlZCB0bwoJCXByaW50ICJsbiBpczogJGxuIGxpbmUgaXMgJGxpbmUiOwoJfQoJJGxuID0gJGxpbmU7Cn0KX19EQVRBX18KMSBYWFhYIGppbW15IFhYWFhYIFhYWFhYCjIgWFhYWCBqb2hueSBYWFhYWCBYWFhYWAozIFhYWFggamltbXkgWFhYWFggWFhYWFgKNCBYWFhYIGppbW15IFhYWFhYIFhYWFhYCjUgWFhYWCBqb2hueSBYWFhYWCBYWFhYWA==