#!/usr/bin/perl -w
use strict;

my $a = '123a+b456';
print "found\n" unless index($a, 'a+b') == -1;