if ($data =~ /1234\d{2}\abcd/)
{
print "Fetch successful\n";
}
else
{
print "Not found\n";
}