my $fifth = ( split m{/}, $string )[4];