#!/usr/bin/perl -w
#
use strict ;
#
my $step = 'a123aaaa' ;  # Produces True message
#
if ($step =~ /\d{3}/) {
   print "\n\tIt's true :: <$step>!\n" ;
}
else
{
   print "\n\tIt's false :: <$step>!\n" ;
}