sub xx
{
  my ($a,$b)=@_;
# some sentences later
  if ($b =~ /$a/) { ... }
}