perl -E "$x = 'Hello'; say $ x =~ qr/$ x/ ? 'Match': 'No match'"
No match

perl -E "$x = 'Hello'; say $ x =~ qq/$ x/ ? 'Match': 'No match'"
Match