perl -e "$regex = qr/=/; print ref $regex,' ',$regex"
Regexp (?^:=)