Select Code to Download

#!/usr/bin/perl -w
$|++;
...
die sprintf(
  'cannot match "%s" extension in "%s"', EXTENSION, $file
) unless $file =~ /(??{EXTENSION()})\z/;