if ( my ($num) = $sFunction =~ /test([12])/ ) {
	# ...
	if ( $num eq "2" ) {
		# ...
	}
}