$  perl tst.pl
x x x a x x x b x x x a x x x b x x x at tst.pl line 5.
x x x b x x x a x x x b x x x a x x x at tst.pl line 8.