my $account = '12340612121';
print "it matches 406\n" if $account=~/406/;