[Metalab] Fall in Love!

[Michael Bauer]

Fall in Love,
Kiss on the Streets,
Do not Hesitate,
Do not Compromise,
Do it Now!

-- 
/usr/bin/perl -e '1==$#ARGV||die "usage: $0 <iPod Volume> <searchstring>";
open(D,"$ARGV[0]/iPod_Control/iTunes/iTunesDB")||die $!;$_=join "",<D>;
s/\:/\//g;s/[^\w \.\/]//g;foreach(split /mh(it|sd)/){if(/$ARGV[1]/){
s/.*mhod.//;system("open \"$ARGV[0]$_\"")}}; # TO COPY IS OUR RIGHT!'