#!/usr/bin/perl
use warnings;
use DBI;
my $db = DBI->connect("dbi:SQLite:music.sqlite","","");
my @values = map { s/([_%])/\\$1/g; "%$_%" } ( 'pearl', 'temple');
my $like_clause = join( " or ", map { "Songs.Artist LIKE ?" } @values);
my $sth = $db->prepare( "SELECT * FROM Songs where ($like_clause)" );
my $all = $sth->execute( @values ) or die("Failed to Execute SQL");

foreach my $row (@$all) {
my ($id, $Track, $Title, $Artist, $Album, $Year, $Genre, $Path) = @$row;
print "\nid: $id\nTrack: $Track\nTitle: $Title\nArtist: $Artist\nAlbum: $Album\nYear: $Year\nGenre: $Genre\nPath: $Path\n";