Поправить скрипт в perl

Нужно поправить пару строчек в скрипте:

$txt =~ /(.*?)/; #"

$data->{1} = $1;

$txt =~ /~ ]*?>(.*?)/;

$data->{2} = $1;

Берут название исполнителя и альбома со страницы товара (первые 2 строки под основной шапкой магазина)

Название альбома бывает 2 форматов:

1) http://www.amazon.co.uk/Suburbs-VINYL-Arcade-Fire/dp/B003OUWGGY/ref=sr_1_1?ie=UTF8&m=A3P5ROKL5A1OLE&s=music&qid=1280559126&sr=1-1

2) http://www.amazon.co.uk/Final-Frontier-VINYL-Iron-Maiden/dp/B003QHYHGC/ref=sr_1_2?ie=UTF8&m=A3P5ROKL5A1OLE&s=music&qid=1280559126&sr=1-2

В первом случае название жирным шрифтом, во втором к нему добавляются слова нежирным.

Нужно срочно!!!