#!/perl/bin/perl -w

use strict;
use warnings;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);


print header();

my $text = "TICKETHELP###,########,1234567###,2005,X,Y,356.00###,2006-5-8 17:44:44,TICKETHELP###########1234567###2005XY356.00###,World Cup List,John Marck";

if($text=~/(2006-5-8)/g)
{
    print "found = $1";
    
    }else{
          
          print "Nothing";
          
          }
          
          
=comment
TICKETHELP###,########,1234567###,2004,X,Y,35.00###,2004-5-2 17:44:44,TICKETHELP###########1234567###2005XY356.00###,World Cup List,John Marck
TICKETHELP###,########,1234567###,2005,X,Y,16.00###,2005-3-8 17:44:44,TICKETHELP###########1234567###2005XY356.00###,World Cup List,John Marck
TICKETHELP###,########,1234567###,2006,X,Y,23.00###,2006-1-3 17:44:44,TICKETHELP###########1234567###2005XY356.00###,World Cup List,John Marck
TICKETHELP###,########,0933456###,2005,X,Y,33.00###,2005-5-7 17:44:44,TICKETHELP###########1234567###2005XY356.00###,World Cup List,John Marck
TICKETHELP###,########,1234567###,2005,X,Y,87.00###,2005-5-4 17:44:44,TICKETHELP###########1234567###2005XY356.00###,World Cup List,John Marck
TICKETHELP###,########,1984567###,2005,X,Y,32.00###,2005-3-8 17:44:44,TICKETHELP###########1234567###2005XY356.00###,World Cup List,John Marck
TICKETHELP###,########,1234567###,2005,X,Y,67.00###,2006-5-2 17:44:44,TICKETHELP###########1234567###2005XY356.00###,World Cup List,John Marck
TICKETHELP###,########,1223698###,2000,X,Y,79.00###,2000-1-1 17:44:44,TICKETHELP###########1234567###2005XY356.00###,World Cup List,John Marck
TICKETHELP###,########,1299n67###,2001,X,Y,26.00###,2001-5-5 17:44:44,TICKETHELP###########1234567###2005XY356.00###,World Cup List,John Marck
=cut