Help for this page
if ( "add" =~ /^\Q$answer/ ) { ... }
my $ans = qr/^\Q$answer/; if ( "add" =~ /$ans/ ) { ... } elsif ( "remove" =~ /$ans/ ) { ... }