print $1, $/ if ( $location =~ m{(?<=:)(?:.-)?(.+?)$} );