my $foo = 'a\b*c/d';
  my $bar = '  A\B*C/D  ';
  $bar =~ / ^ \s+ \Q $foo \E \s+ $/xi