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