#!/usr/bin/perl

use warnings;
use strict;
use Data::Dumper;

my $string = "asdfxyzasdf";

print "Not found\n" if($string !~ /xyz/);