DB<106> $head="/tmp/";$tail="/foo/file" 
 => "/foo/file"

  DB<107> $path= <$head*$tail>
 => "/tmp/bla/foo/file"

  DB<108> ($middle) = $path =~ /^\Q$head\E(.*)\Q$tail\E$/
 => "bla"