#! /usr/bin/perl -w

my @files= <*.in>

for (@files)
{
	s/[.]in//g 
}

say $_
    for @files;