Reg exp with ansi

[kael]

ok, this is what I have

$prompt=color("blue").": ".color("reset");

unless ($line=~/\r\n$prompt$/){
    $line.="\r\n$prompt";
}

This is with the Term::ANSIColor module...
The problem is this crashes complaining about an umatched []
I tried using /o but that didn't help. Why isn't whats in the variable getting escaped out and how can I tell it to get escaped?

[chipmunk]

The value of an interpolated variable in a regex is not supposed to be escaped automatically; it would be impossible to use strings as regexes that way. Instead, you can ask for the escaping when you need it, with quotemeta or \Q: unless ($line =~ /\r\n\Q$prompt\E$/) {