my $string = "/opt/pmg/ptt/book1_test";
my ($path) = ($string =~ m|^(/.+/book)|);