#!/usr/bin/perl -w

#Test routne

$string = '/data/satellite/avhrr/globec_std/1993';
$string =~ s!.*/(\w{1,})/\d\d\d\d\s{0,}?!$1!;

print STDOUT (" string=\"", $string, "\"\n");