$string = quotemeta('$foo');
/^$string/;
# Or
$string = '$foo';
/\Q$string/;