open(FILE,"show_module.dat"); while(){ if ($_ =~ /^\s*(\d+)\s+(.*?) (\s*)([WS|76])(.*?)\s+(\w+)\s+(.*)\s+(.*)/) { print "SLOT = $1\n"; print "Desc = $2\n"; print "Model = $3\n"; } } close(FILE);