#!/usr/bin/perl
use strict;
use warnings;
print "Enter first or last name of artist: "; 
chomp(my $input = <STDIN>); #Take input from user
while(chomp(my $line = <DATA>)){
        if($line =~ /$input/){ #Check if input matches with line 
                my @artist_info = split/:/,$line; #Split the data from line based on `:`
                print " Name: $artist_info[0]\n CD Title: $artist_info[1]\n Date: $artist_info[2]\n Price: $artist_info[3]\n";
        }
}
 
__DATA__
Seamus McGuire:The Wishing Tree:09-14-2000:14.95
Pat Kilbride:Loose Cannon:07-02-2000:15.95
Kevin Crawford:Seasons of Mists:06-23-2000:16.95
Prince:Purple Rain:01-01-1995:3.95
Meat Loaf:Bat out of Jell:03-03-1980:11.95
Eddie Money:Two Tickets:09-04-1979:8.98

IyEvdXNyL2Jpbi9wZXJsCnVzZSBzdHJpY3Q7CnVzZSB3YXJuaW5nczsKcHJpbnQgIkVudGVyIGZpcnN0IG9yIGxhc3QgbmFtZSBvZiBhcnRpc3Q6ICI7IApjaG9tcChteSAkaW5wdXQgPSA8U1RESU4+KTsgI1Rha2UgaW5wdXQgZnJvbSB1c2VyCndoaWxlKGNob21wKG15ICRsaW5lID0gPERBVEE+KSl7CiAgICAgICAgaWYoJGxpbmUgPX4gLyRpbnB1dC8peyAjQ2hlY2sgaWYgaW5wdXQgbWF0Y2hlcyB3aXRoIGxpbmUgCiAgICAgICAgICAgICAgICBteSBAYXJ0aXN0X2luZm8gPSBzcGxpdC86LywkbGluZTsgI1NwbGl0IHRoZSBkYXRhIGZyb20gbGluZSBiYXNlZCBvbiBgOmAKICAgICAgICAgICAgICAgIHByaW50ICIgTmFtZTogJGFydGlzdF9pbmZvWzBdXG4gQ0QgVGl0bGU6ICRhcnRpc3RfaW5mb1sxXVxuIERhdGU6ICRhcnRpc3RfaW5mb1syXVxuIFByaWNlOiAkYXJ0aXN0X2luZm9bM11cbiI7CiAgICAgICAgfQp9CgpfX0RBVEFfXwpTZWFtdXMgTWNHdWlyZTpUaGUgV2lzaGluZyBUcmVlOjA5LTE0LTIwMDA6MTQuOTUKUGF0IEtpbGJyaWRlOkxvb3NlIENhbm5vbjowNy0wMi0yMDAwOjE1Ljk1CktldmluIENyYXdmb3JkOlNlYXNvbnMgb2YgTWlzdHM6MDYtMjMtMjAwMDoxNi45NQpQcmluY2U6UHVycGxlIFJhaW46MDEtMDEtMTk5NTozLjk1Ck1lYXQgTG9hZjpCYXQgb3V0IG9mIEplbGw6MDMtMDMtMTk4MDoxMS45NQpFZGRpZSBNb25leTpUd28gVGlja2V0czowOS0wNC0xOTc5OjguOTg=

TWVhdA==

Meat