Select Code to Download

use strict;
use warnings;
...

$x =~ tr/ //d;
print "Matched: >$1<\n" if $x =~ /(\Q$y\E)/i;

Matched: >Myname<