Isn't the prompt regex wrong?

$t->prompt('/TERM\s/=\s/(hp/)\s/');
[download]

Shouldn't it be:

$t->prompt('/TERM\s=\s\(hp\)\s/');
[download]

Tested with:

use strict;
use warnings;

my $actualPrompt = 'TERM = (hp) ';
while (<DATA>){
  chomp;
  $actualPrompt =~ /$_/ ? print "$_\tMatches\n" : print "$_\tDoes not 
+match\n";
};
__DATA__
TERM\s/=\s/(hp/)\s
TERM\s=\s\(hp\)\s
[download]

Output:

TERM\s/=\s/(hp/)\s      Does not match
TERM\s=\s\(hp\)\s       Matches
[download]