#!/usr/bin/perl 
$en=EN-1000-0003-3;
print "\$en is $en\n";

---------
$en is -1006