#!/usr/bin/perl -w
while (<DATA>) {
    print "PIN:$1\n" if /^$ARGV[0]\s+(\w+)/o;
}

__DATA__

# Poniej naley wpisa kody PIN Bluetooth w parach - adres_BD kod_PIN
# oddzielone biaym znakiem, po jednej parze w kadym wierszu
#
# ## itd.

00:11:22:33:44:55	11111
