my $match = substr $string, 0, 30;