#!/usr/bin/perl

while($file = <>) {
    chomp $file;


    $prefix = `basename $file`;
    ($prefix) = split/\./,$prefix;

    $prefix = $1 if ($prefix =~ m/lin_(.+)/);
    
    print "Unziping $file into $prefix\n";
    system("mkdir $prefix");
    system("cd $prefix; unzip -q $file");
}