[0] Perl> $var1 = '1.11.2'; $var2 = '1.1'; 
if( index( $var1, "$var2." ) == 0 ) { print "matches" } 
else { print "Doesn't match" };;
Doesn't match