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

my $x = 123;		# no quotes
my $y = $x;

$y =~ /(\d{2})(\d)/;	# regex, but see also perlretut re executing code in a regex
$y = ($1+1).$2;
print $y;