perl -Mre=debug -e "qr/a .{1,10} \ /x;qr/a .{1,10} [ ]/x;"