#!/usr/bin/perl
my $test = "Relation '20030219' already exists";
print "Result: ", $test =~ /Relation\s'[0-9]*'\salready\sexists/, "\n";
__END__
Result: 1