Eavesdrop on BNM search terms

#!/usr/bin/perl -w print < Eavesdrop on BNM search terms

Recent search terms from the BNM search page

"; $_ = $1; s/%20/ /g; s/\+/ /g; s/%22//g; s/%27/'/g; s/%2F/\//g; s/%3F/\?/g; s/%28/\(/g; s/%29/\)/g; s/%25/\%/g; s/%2B/\+/g; s/;page=(.*)/ (p.$1)/g; print "$_
no recent searches :(

Back to Tristan's BNM area

END