Select Code to Download

package Regexp;
use overload
...
package main;
my $rx = qr/a/;
print $rx;