вроди так вылечил
это $data =~ /profile\.php\?id=(\d+)" >(.+?)<\/a>/; my $name = $2; заменил на
это $data =~ /id(\d+)'>(.+?)<\/a>/; my $name = $2;