===========================================================
                                      .___ __  __   
          _________________  __ __  __| _/|__|/  |_ 
         / ___\_` __ \__  \ |  |  \/ __ | | \\_  __\
        / /_/  >  | \// __ \|  |  / /_/ | |  ||  |  
        \___  /|__|  (____  /____/\____ | |__||__|  
       /_____/            \/           \/           
              grep rough audit - static analysis tool
                  v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
libnet-bluetooth-perl-0.41/Bluetooth.pm-204-  my $device_ref = get_remote_devices();
libnet-bluetooth-perl-0.41/Bluetooth.pm:205:  foreach $addr (keys %$device_ref) {
libnet-bluetooth-perl-0.41/Bluetooth.pm-206-	print "Address: $addr Name: $device_ref->{$addr}\n";
##############################################
libnet-bluetooth-perl-0.41/README-54-  my $device_ref = get_remote_devices();
libnet-bluetooth-perl-0.41/README:55:  foreach $addr (keys %$device_ref) {
libnet-bluetooth-perl-0.41/README-56-	print "Address: $addr Name: $device_ref->{$addr}\n";
##############################################
libnet-bluetooth-perl-0.41/samples/device_discovery-4-	my $device_ref = get_remote_devices();
libnet-bluetooth-perl-0.41/samples/device_discovery:5:	foreach $addr (keys %$device_ref) {
libnet-bluetooth-perl-0.41/samples/device_discovery-6-		print "Address: $addr Name: $device_ref->{$addr}\n";
##############################################
libnet-bluetooth-perl-0.41/samples/get_gps_data-15-#### name just hardcode the address.
libnet-bluetooth-perl-0.41/samples/get_gps_data:16:foreach $addr (keys %$device_ref) {
libnet-bluetooth-perl-0.41/samples/get_gps_data-17-	$g_addr = $addr if($device_ref->{$addr} =~ /BT GPS/i);
##############################################
libnet-bluetooth-perl-0.41/samples/service_discovery-41-	#### Loop through each device and find the one we want.
libnet-bluetooth-perl-0.41/samples/service_discovery:42:        foreach $addr (keys %$device_ref) {
libnet-bluetooth-perl-0.41/samples/service_discovery-43-		#### If the device name matches "BT GPS" grab the address.