print qr'a';
print "\n\n";
print $RE{delimited}{-delim => qr'a'};
print "\n";