unless (param('AppName') =~ /[^_]*_\(.*\)/)

{
    print "something"
    exit 1;
}