Regular expression not match perl examples qr