#!/usr/bin/perl -w

use strict;
use File::Basename;

while (<>) {
        my ($name, $path, $suffix) = fileparse ($_, ".txt");
        $name =~ /\D+(\d+)/;
        print "number: $1\n";
}