$ perl
print '$x' =~ m'$x'
__END__

$