#!/usr/bin/perl

$fichier = "toto1984.dat";
$fichier =~ s/toto(\d*)\.dat/$1/;
$fichier += 100;
$fichier = "toto".$fichier.".dat";
print ($fichier."\n");
