$phn = "Apple iPhone 4 Black Cover";
print $trim = join '-', (map { substr($_, 0, 4) } split /\s+/, $phn);