...
print qq(
<span class='textTitles'>$article->{'title'}</span><br>
Publication Date: $article->{'pub_date'}<br>
Author: $article->{'author'}<br>
Price: @{[ PrintablePrice($format_list[0]) ]}<br>
);
...