#! /usr/bin/perl -w

use strict;

my @files = <*.fo>

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

print @files;