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