$str =~s{.* / | \. .*}{}gx;