#!/usr/bin/perl
while(<>) {
   chomp;
   print $_ . substr($_,0,2) . "\n";
}