use strict; use warnings; my %row; $row{test_name} = '{CHK.test: 1 2 3}'; if( $row{test_name} =~ "CHK" ) { print "CHK-------"; } #### CHK-------