if (m =~ /.../) {
    my $temp = $1;
    $name = substr($temp, 0, 128);
}