if( substr($var, 0, 1) eq "'" ) { 
    print "It's a string\n" 
}