my $desired = substr($string, index($string, $tail) - 4, 4);