$var1 = '020055'; $var2 = '20055'; if ( $var1 =~ /(0*)($var2)/ ) { print "Found match: <$1><$2>\n"; } else { print "No match: \$var1<$var1> \$var2<$var2>\n"; } #### Found match: <0><20055>