Perl：求地址中的省名或市名的子字符串,该如何处理

Perl：求地址中的省名或市名的子字符串
例如：
北京市＊＊＊＊＊　?結果：北京市
河北省＊＊＊＊＊　?結果：河北省　

[解决办法]
我知道这样子是可以的，就是感觉太繁琐了。

use Encode;
my $line = '北京市＊＊＊＊＊';
$line = decode( "gb2312", $line );
my $regex = '^(\w+(省
[解决办法]
市
[解决办法]
自治区))';
$regex = decode( "gb2312", $regex );
if( $line =~ /$regex/ )
{
print encode( "gb2312", $1 );
}