$string =''; print $1 if $string =~ m[^$]i; description