Select Code to Download

$text = 'So, I went to the $string and I wanted to buy a book, but it 
+was too expensive,';
@phrases = split /,/, $text;