Select Code to Download

sub getXCharacterPatterns{
  my $str=shift; #what does shift do here?
...
  }
  return \%nu_hash;
}