$x= 'jeffa'; $y= 'a'; $x++,$y++ while $y ne 'jeffa'; $y= 'a'; $x++,$y++ while $y ne 'blah'; $y= 'a'; $x++,$y++ while $y ne 'blah'; $y= 'a'; $x++,$y++ while $y ne 'bore'; $y= 'a'; $x++,$y++ while $y ne 'ing'; $y= 'a'; $x++,$y++ while $y ne 'eqn'; print $x;