$re = '\$';
# or, better yet:
$re = qr/\$/;