#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my $x = 'found 11';
my $y = 'found 12';

if ($x =~ /found (\d+)/ && $y =~ //) {  # No need to repeat the long regex! Yay!
    say "Found $1.";
}