our $re = qr / 
....big...
...multiline...
...pattern... 
/x;