#! /usr/bin/perl
use warnings;
use strict;

my $country  = 'Pakistan';
my $province = 'Punjab';
my $region   = 'Asia';

my $counter = 1;

my $sequenceid = substr $region, 0, 1;
$sequenceid   .= substr $country, 0, 2;
$sequenceid   .= substr $province, 0, 2;
$sequenceid   .= sprintf '%07d', $counter;

$sequenceid = uc $sequenceid;
print $sequenceid, "\n";


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,