Perl регулярные выражения

Думаю данная тема будет полезна, может не многим, но всё-же полезна, в часности мне. Предлагаю здесь задавать интересующие вас вопросы по регуляркам, а кто сможет, тот по возможности будет отвечать на них. И вот первый вопрос: как составить выражение, чтобы отбирались все слова начинающееся с буквы "А" и к ним по бокам подставлялся тег?

#\s(A[a-zA-Z]+)#, '<b>\1</b>'
Типа того

ramzes (10.07.2011/10:57)
#\s(A[a-zA-Z]+)#, '<b>\1</b>'
Типа того

Да, именно. Спс.