perl и интересное сделать через regexp ?

> Надо:
> 1. Из строки вида:
> 'признак=<строка>,' *
> получить в переменную $str="строку" заданную в *

$in = 'признак=<строка>,';
($str) = $in =~ /признак=<(.*)>,/

> 2. Из строки вида:
> 'размер=231414,' **
> получить в переменню $size=231414 заданное в **

$in = 'размер=231414,'
($size) = $in =~ /размер=(.*),/

> Как это можно просто сделать через regexp в perl?
> Мне не очень нравится как слелал я ... это:
> для 1го:
> $str='признак=<строка>';
> $str=~s/признак=>//;
> $str=~s/<,//;
>
> Хотелось-бы правило в одну строчку, и более правильное ....

Да уж, изобрёл велосипед.