1
2
3
4
5

my $string = "/opt/pmg/ptt/book1_test";
my $path_incl_book;
if ( $string =~ / (.* book) /x ) {
    $path_incl_book = $1;
}

Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"