bhgfsggdsgsg
--
john1
weruwearnwrnweuarar
jjafdaiuweifweofiuwe
jacob - 1.0
--
nfaslf23523525
john2
asfsjldf43tgre
john3
asbdfhskafbv3333v
sdfahh34ttg
sadfhk34t3wtg
sdfhk3gfwghhw3
jacob - 2.0

##</code><code>##

john1 > jacob - 1.0
john3 > jacob - 2.0

##</code><code>##

if($line1 =~ /(john)^.{1,100}$^.{1,100}$^.{1,100}$^(jacob \- \d\.0)/s)
{
($JOHN,$JACOB) = ($1,$2);
print MYOUTPUTFILE1 "$JOHN - $JACOB";
}