Select Code to Download

print_dir ( "YOUR/DIRECTORY/PATH" );

...
  }

}

my $string = "xyz^^ is strange";
print $string if($string =~ /\^\^/);