$re = qr/$pat/;