Help for this page
use strict; use warnings; ... print /y/; print "\n".$re; print "\n"./$re/;
1 (?-xism:y) 1