Здраствуйте...

Я очень слабо разбираюсь в Perl и его регулярных выражениях...подскажите плиз:

Достаю из БД значения вот так:

my $dbh = $session->dbh($m_sess);
my $sth;
my @records;

$sth = $dbh->prepare(qq{
бла-бла-бла....какой-то запрос
});

while(my $a = $sth->fetchrow_arrayref)
{
push @records, {
Column1 => $a->[0],
};
}

Как вы видите значение $a->[0] изменять нельзя, поскольку оно только для чтения. Подскажите пожалуйста, как мне сделать чтобы если в $a->[0] первая буква "Р" то в Column1 поместить такое же значение, только первую букву "Р" заменить например на "Д". Если в строке на других позициях встречаются буквы "Р" то их трогать не надо. Честно говоря с помощью регулярных выражений я не могу придумать как это сделать (плохо в них разбираюсь...). Или для очуществления этого лучше написать функцию??? Тогда подскажите как обратиться к первой букве строки? Можно так же как и в Паскале:

my $s='Р3.00 Вася Рёбрышкин'

if $s[1] eq 'Р'
{
....
}

Спасибо...

Спасибо