while (<>) {

chomp;
@fields = split /\//, $_;