if ($temp =~ /#/){
        $temp =~ s/#$'//;
}
##</code><code>##

my $varaible = '[a-z]';
m/\Q$variable\E/  # matches literal [a-z], not a character class.