open(INFO,$file);
while(<INFO>){
print if /\bint\b/;
print if /\bfloat\b/;
}
close(INFO)