#!/usr/local/bin/perl -w

use strict;

my $var        = '77373737377837';

my @new_var    = $var =~ /((\d)$1)/;
my $var2       = join('', @new_var);