#!/usr/bin/perl -w
$|++;

use strict;
use constant EXTENSION => '.txt';

my $file = shift;
die sprintf(
  'cannot match "%s" extension in "%s"', EXTENSION, $file
) unless $file =~ /(??{EXTENSION()})\z/;