Help for this page
bhgfsggdsgsg -- ... sadfhk34t3wtg sdfhk3gfwghhw3 jacob - 2.0
john1 > jacob - 1.0 john3 > jacob - 2.0
if($line1 =~ /(john)^.{1,100}$^.{1,100}$^.{1,100}$^(jacob \- \d\.0)/s) { ... print MYOUTPUTFILE1 "$JOHN - $JACOB"; }