You should make sure the regex matches before using captured values:

if (m{^(.*)/(tp_\w+)}i) {
    my ( $pathPrefix, $tpname ) = ( $1 ? ( $1, $2 ) : ( '.', $_ ) );
    # etc...
}
[download]

Take a look at the Basic debugging checklist for other generic advice.