Select Code to Download

use strict;
use IO::File;
...
      if($mp3 =~ m!$ARGV[0]!i);
  }
}

find . -type f -iname '*.mp3' | grep "pattern here" | xargs mpg123 -p 
+none -b 500 -q