#!/usr/bin/perl
# your code goes here
my $line = qq{cissell
!generic
!speed
-queen
};
my @array;
foreach my $brand (@array) {
}
1;
IyEvdXNyL2Jpbi9wZXJsCiMgeW91ciBjb2RlIGdvZXMgaGVyZQoKbXkgJGxpbmUgPSBxcXtjaXNzZWxsIWdlbmVyaWMhc3BlZWQtcXVlZW59OwoKbXkgQGFycmF5OwoKcHVzaChAYXJyYXksIHNwbGl0KC9cIS8sICRsaW5lKSk7Cgpmb3JlYWNoIG15ICRicmFuZCAoQGFycmF5KSB7CgkKCXByaW50ICIkYnJhbmRcbiI7Cn0KCjE7Cg==