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

if ($s =~ /(т\.[0-9]+)/)
{
print $1;
};

$s =~ s/(т\.[0-9]{6,8})/$1/;
в $s была строка, после выполнения в ней уже то че ты хотел.
{6,8} ставит ограничение в количество символов.

при локали настренной это будет воркать, яб так написал: (.\.\d+)\s ...

Дима