Help for this page

Select Code to Download

Select or download this

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

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

Select or download this

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